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Speciale aanbieding 

Het vooraanstaande softwarehuis Malm- 
berg heeft een zeer speciale zomerver- 
rassing in petto voor de lezers van Com- 
modore-lnfo. 

Een aantal van de bekende educatieve 
software-pakketten worden met een 
unieke korting aangeboden aan onze le¬ 
zers. Het gaat daarbij om een aantal 
eigen Malmbergprogramma’s, waaron¬ 
der de tophits Rijweg en Muppet Com- 
putershow en om een aantal Fisher- 
Price programma’s, met het beroemde 
Woordenzee en Denkraam. 

De programma’s worden geleverd in de 
originele verpakkingen en kosten tijdelijk 
slechts ƒ 24,95 (cass.) resp. ƒ 29,75 (dis¬ 
kette) per stuk, inclusief verzendkosten. 

Gebruik voor uw bestelling de bon 
elders in dit blad 

Hieronder volgt een overzicht van alle 
programma’s die voor deze speciale prijs 
beschikbaar zijn. 

Titel Leeftijd 

Voor Commodore 64 

Malmberg 

Rijweg (cass.) 12+ 

Stoomtrein (disk) 12+ 

Schaakles (cass.) 12+ 

Malmberg software 

Muziekstudio (disk) 12+ 

De Muppet Computershow (disk) 6+ 
Vormfabriek (2 cass.) 4+ 

Tik ’n toets (cass.) 4-8 

Ranch (cass.) 7-12 

Schatzoeker (cass.) 11 + 

Speurneus (disk) 11 + 

Bekketrekker (cass.) 4-8 

Breukendans (cass.) 7-12 

Kindercomp (cass.) 4-8 

Ruimtekolonie (cass.) 11 + 

Hazepad (cass.) 7-12 

Muziekmaker (cass.) 7-12 

Ruimterekenen (cass.) 7-12 

BMX rekencross (cass.) 7-12 

Geheim archief (disk) 11 + 

Schildpad (disk) 7-12 

Koppelkaarten (disk) 7-12 

Fisher-Price 

Hop, tel op (cass.) 4+ 

Woordenzee (cass.) 8+ 

Piekerspoor (cass.) 7-12 

Tuimelteller (cass.) 7-12 

Denkraam (cass.) 4-8 

Alfabetstad (cass.) 4-8 
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Programmeerwestrijd 1986 
Prij s winnaars 

Voor onze grote programmeerwedstrijd hebben we een vele 
inzendingen ontvangen, waar een groot aantal leuke program¬ 
ma’s bijzat. De deelname van de dames viel een beetje tegen, 
hoewel er toch een lichte stijging ten opzichte van vorig jaar te 
constateren valt. 

Na vele uren zoeken, bekijken, lezen, testen en beoordelen zijn 
we er uiteindelijk toch uitgekomen. Als Uw programma door 
ons niet uitgekozen is als prijswinnend betekent dit niet, dat 
het onvoldoende van kwaliteit is maar we hebben een keuze 
moeten maken, waarbij we o.a. hebben beoordeeld op orgina- 
liteit, onderwerp, lengte en hoe geprogrammeerd. Is Uw 
programma er door ons nu niet uitgekozen, dan kunt U toch 
nog winnen, want uit het materiaal dat er ingezonden is 
plaatsen we nog een aantal listings en in dat geval krijgt U 
daarvoor ook een vergoeding uitgekeerd. 

De hoofdprijs, een kleurenmonitor, is gewon¬ 
nen door Durk Bouma uit Nijland met een 
programma waar men flink bij moet nadenken 
als men het tot een goed einde wil brengen. 
De tweede prijs is behaald door Marcel de 
Groot uit Hillegom met het programma dis- 
khulp, dat voor vele van ons erg interessant is 
en veel tijd en moeite kan besparen. Hij krijgt 
hiervoor een diskdrive. 

De derde prijs is voor Harrie van Lammeren uit 
Vogelenzang met het programma Diamanten- 
jacht, dat reeds in ons vorig nummer geplaatst 
is. Hij krijgt hiervoor een printer. 

De software-pakketten zijn gewonnen door; 
Gestel van Dimmen uit Kaatsheuvel, C.van de 
Meyden uit Den Helder, Jeroen Jagt uit Hen¬ 
gelo en Pieter Delu Knol uit Kampen. 

In de komende nummers zullen we deze lis¬ 
tings publiceren. 

De prijswinnaars hebben reeds bericht gehad. 


ABONNEMENT OP 
DIT BLAD? 


Bel gr0* is 

06-022 42 22 


Alléén voor opgeven van 
nieuwe abonnementen! Vóór 
alle andere inlichtingen, zie 
telefoonnummers in colofon. 


HP TELESERVICE 

elke dag tot 20.30 uur (ook in het weekend) 


Dit is alweer het laatste 
nummer van 1986. 

In het nu bijna afgelopen 
jaar zijn er nogal wat 
woelingen geweest op 
de internationale com- 
putermarkt. De compu¬ 
ters voor zakelijk gebruik 
rukken steeds verder op 
en af en toe leek het alsof 
de home computers te¬ 
recht kwamen in de hoek 
waar de klappen vallen. 

Wat Commodore betreft 
is de balans in een min of 
meer wankel evenwicht. 
De PC-10 en daarvan af¬ 
geleide „hogere” versies 
handhaven zich heel be¬ 
hoorlijk in de groeiende 
MS-DOS markt. 

De C-64 blijft één van de 
beter-verkochte low-end 
machines. De C-128 
daarentegen lijkt niet 
echt door te breken, 
waarschijnlijk ook omdat 
deze computer een beet¬ 
je tussen de wal en het 
schip is gevallen. 

De Amiga lijkt zich een 
eigen plaats verworven 
te hebben als zakelijke 
computer met nadruk op 
grafische toepassingen. 
Commodore blikt dan 
ook met een gematigd 
optimisme de toekomst 
in. Wij zullen deze toe¬ 
komst ook in het komen¬ 
de jaar nauwgezet blij¬ 
ven volgen. 

Voor het echter zover is 
wensen wij u prettige 
feestdagen en een voor¬ 
spoedig begin van 1987 
toe. 

Luc Sala 





Met de feestdagen voor de deur, heerst er bij Commodore in de Verenigde Staten een 
redelijk opgewekte stemming. Luc Sala bericht uit de VS. 


Optimistische vooruitzichten 


Commodore 
voorzichtig 
1987 in 



O p de Comdex in Las Vegas zochten we tevergeefs naar Commodore. Nu 
was dat bedrijf niet het enige, dat het af liet weten, ook Apple liet zich daar 
niet zien. Het was daarom vrijwel een totale PC-beweging, met veel 80386 
nieuws en laserprinters. 

Toch viel in de wandelgangen nog wel wat nieuws te vernemen over 
Commodore, het bedrijf zelf is niet ontevreden met de verkopen van de computers 
en de Amiga blijft voorzichtig aan doorlopen. Men verwacht binnen een paar 
maanden wel weer een upgrade voor de Amiga uit te brengen, waarover hieronder 
meer. 


De laatste maanden, na een vrij slechte 
zomer, gaan de softwareverkopen weer 
wat lopen. De grote softwarehuizen zijn 
weer wat optimistischer en hebben hele 
reeksen nieuwe produkten klaarliggen. We 
spraken met Brad Fregger, de producent 
van vele Activision toppers zoals Hacker 
en Music Studio en hij tipte het adventure 
Aliens en een Transformer spel met Ja¬ 
panse inslag van David Crane. Brad is juist 
voor zichzelf begonnen, dus was hij wat 
vrijer om over de marktsituatie te praten 
dan in zijn Activisioatijd. Volgens hem is er 
weer veel behoefte aan nieuwe spelletjes, 
de winterslaap van de software- uitgevers, 
die een zwakke tijd hebben gekend, is 
weer over. De meeste grote bedrijven, dat 
zijn Electronic Arts, Epyx en Activision zijn 
heel tevreden, al heeft Activision moeite 
om eindelijk weer eens winst te maken. 
Het bedrijf heeft in de videogame jaren 
gouden winsten gemaakt, maar sprong 
daar ook ruim mee om. 


America’s Cup 

Electronic Arts is ingesprongen op de hys¬ 
terie in de VS rond de komende America’s 
Cup en een spel uitgebracht, dat onmidde- 



Thomas Rattigan, president van de 
Noordamerikaanse divisie van Commodore. 


lijk tot het officiële spel is uitgeroepen. In 
het algemeen brengt men nog steeds 
spelletjes uit voor de C-64 en C-128 en 
zeker op de komende Consumer Electro¬ 
nics Show in januari in Las Vegas kunnen 
we nog heel wat leuke dingen verwachten. 

Resultaten Commodore 

De balans van Commodore ziet er beter, 
maar nog niet echt florissant uit. En dat is 
ook moeilijk, de gecombineerde verliezen 
in de laatste twee jaar belopen maar liefst 
241,8 miljoen dollar. Dat zijn fenomenale 
bedragen, zeker als we het aantal verkoch¬ 
te computers in aanmerking nemen. 
Schatten we dat op een kleine 2,5 miljoen 
stuks, dan kostte iedere computer, die de 
deur uitging CBM een paar honderd gul¬ 
den. Ze hebben daar in Pennsylvania rare 
dingen uitgehaald, dat blijkt wel. Maar 
goed, het loopt nu allemaal weer en men 
heeft over het voorlaatste kwartaal zelfs 
weer een bescheiden winstje van 1,2 mil¬ 
joen dollar gemaakt. En het afgelopen 
kwartaal ging het zelfs nog iets beter, met 
3,7 miljoen winst. Maar ja, de banken hou¬ 
den CBM nog steeds in een ijzeren greep 
en eisen niet minder dan 32 miljoen dollar 
in 1987 en 90 miljoen dollar in 1988 terug¬ 
betaling op lopende leningen. 

Clive Smith, die al vrij lang de marketing 
strateeg van Commodore was, is nu ook 
officieel verantwoordelijk voor de verkoop 
van de Commodore micro’s. 
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Amiga als redding 

Met het kerstseizoen voor de deur en wat 
aantrekkelijke kortingen als lokkers, ziet 
men de verkopen deze winter weer stijgen. 
Het moet de Amiga worden, die CBM weer 
op het paard gaat helpen. Vreemd genoeg 
zijn de hardware sales voor de Amiga 
bevredigend, maar loopt de software nau¬ 
welijks. Bij de Atari ST is dat net andersom, 
daar is de software de grote trekker. Vol- 


r 


C-128 Tekstsysteem. 

gens sommigen ligt dat aan de instelling 
van de Amiga koper, dat is een echte 
"hacker”, die zijn eigen software schrijft. 
De ST koper is meestal een beginner, die 
wil software van de plank gebruiken. 

Nieuwe Amiga’s 

Er zijn sterke geruchten, dat er een reeks 
nieuwe Amiga’s gaat komen in de eerste 
maanden van het nieuwe jaar. Waarschijn- I 


lijk met een behoorlijk hogere prijs, maar 
het ziet er naar uit, dat men de Amiga dan 
ook veel meer IBM-compatibel zal gaan 
maken. Dat wil zeggen niet alleen een 
software-compatibiliteit, er komen dan 
ook PC-comptibele uitbreidingssleuven in 
de machine. Bij de PC worden deze sleu¬ 
ven, "slots”, gebruikt om allerlei uitbrei¬ 
dingskaarten in te steken. Extra geheugen, 
interfaces voor video, RS-232, controllers 
voor extra diskdrives, men weet zelfs hele 
harde schijven op zo'n kaart te proppen. 
Dergelijke add-on kaarten zijn voor een 
belangrijk deel het geheim achter het suc¬ 
ces van de IBM PC. Deze nieuwe Amiga, 
die mogelijk 2500 als indicatie krijgt, heeft 
1 MB aan geheugen en werkt met de 
68000 processor, maar mogeiijk grijpt men 
ook naar de veel snellere 68020, dit om de 
machine in lijn te brengen met de nieuwe 
80386 PC’s, die nu beginnen uit te komen. 
In wezen gaat Commodore met deze aan¬ 
pak een heel eind in de richting van IBM, 
met als extra voor de gebruiker dan de 
grafische en muzikale kwaliteiten van de 
Amiga chip-set. Of CBM hiermee van zijn 
geloof afvalt is eigenlijk niet meer echt an 
de orde, met name in Europa is men met 
de PC en AT toch al een zeer duidelijke 
kloon-weg opgegaan. • 

Luc Sala 


DISKETTE -SPECIAL!!! a 

• UNIEKE PRIJS • 100% GEGARANDEERÖ 

• RAZENDSNELLE LEVERING • PRIMA SERVICE 


5VV' 

3M-1D 

3M-2D 

Nashua-1D 

Nashua-2D 

Select-1D 

Select-2D 

30 stuks 

ƒ40- 

ƒ45- 

ƒ 23- 

ƒ 29- 

ƒ19- 

ƒ 27,- 

50 stuks 

ƒ38- 

ƒ 43- 

ƒ21,- 

ƒ 27- 

ƒ18,- 

ƒ 25,- 


ƒ 35- 

ƒ40- 

ƒ19,- 

ƒ 25- 

ƒ17,- 

ƒ 23,- 

3 Va' 

3M-1D 

3M-2D 

Nashua-1D 

Nashua-2D 


30 stuks 

ƒ 80- 

ƒ 105- 

ƒ 55,- 

ƒ69,- 

50 stuks 

ƒ 75- 

ƒ 95,- 

ƒ 53,- 

ƒ 67,- 




ƒ 90- 

ƒ49- 

ƒ165,- 


Wl\f 55 ’~ 

High-density diskettes voor IBM/AT 

Neutrale kwaliteitsdiskettes 

514" 

3M 

Nashua 

Select 

3 Va" 1D 

314" 2D 



ƒ109- 

ƒ105- 

ƒ103- 

ƒ 90- 
ƒ 85- 

ƒ 80- 

ƒ89,- 
ƒ 85- 
ƒ 79,- 

i p 

WÈm 

Prijzen per 
10 stuks. 


PRIJZEN : Inclusief B.T.W., vracht- en rembou en 

BESTEL NU: DB computersupplies - Postbus 208 - 3840 AE Harderwijk - 03410-23294 
DB computersupplies - Brinklaan 39 - 7311 LA Apeldoorn - 055-21 61 55 
DB computersupplies - Oostergrachtswal 1 - 8921 AA Leeuwarden-058-15 5310 

Dealers - Computerclubs - Overheid: Speciale kondities! 
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Captain Kelly 

In Captain Kelly, van het engelse. Quicksil- 
va, is de hoofdpersoon een huurling, die 
via de ”Space Gazette” op een advertentie 
gereageerd heeft. Zijn doel is om de con¬ 
trole te krijgen over het centrale bestu- 
ringscentrum van een geheimzinnig ruim¬ 
teschip, dat door robots bestuurd wordt. 
Het ruimteschip is tamelijk groot en onder¬ 
weg zijn zuurstoftanks, munitieopslag- 
plaatsen etc. beschikbaar. Bovendien 
moeten alle robots uitgeschakeld worden, 
en om dat te bereiken komen er erg veel 
zweetdruppels en heel wat joystickwerk 
aan te pas. 

Het beeld ziet er ook redelijk goed uit: de 
graphics zijn weliswaar niet 3D, maar toch 
goed ontworpen en kleurig. Hoewel de 


Collapse 

Firebird, de bekende "Elite” dochteronder¬ 
neming van British Telecom, brengt het 
programma Collapse op de markt. Een 
spel uit de "Silver Range”, dus goedkope 



software van naar ons gevoel heel matige 
kwaliteit. Het gaat er om in een veld een 
soort koalabeertje alle spikkels op te laten 
eten, een beetje in de aloude Pacman 
traditie. Wanneer dit gebeurd is, gaat men 
door naar de volgende ronde. Dit program- 



muziek van mindere kwaliteit is, houdt het 
spel de spanning er in, en daarom kunnen 
we u dit programma best aanraden. • 


ma is weer een van de vele in zijn soort: het 
geeft een tweedimensionaal beeld, waarin 
het een en ander opgegeten dan wel ver¬ 
zameld moet worden. De opzet en de 
eenvoudige uitvoering doen denken aan 
een spel uit de beginjaren van de C-64. Het 
enige dat de geringe kwaliteit nog goed 
zou kunnen maken is de lage prijs, 2 pond 
in Engeland. • 


Deactivators 

Dit spel, op de markt gebracht door Ariola- 
soft, heeft weer de kwaliteit die we van dit 
softwarehuis gewend zijn. (andere beken¬ 
de door Ariolasoft gedistribueerde games: 
Hacker I en II, Law of the West etc...). Dat 
de speler gebruik maakt van droids, dit zijn 
afstandbestuurbare robots, om zijn doel te 
verwezenlijken, is geheel volgens de laat¬ 
ste software-mode. Dit is ook het geval 
met recentere adventures zoals Hacker en 
De Kapriolen. Door deze robots handig te 
besturen moet men alle geplaatste bom¬ 
men uit het gebouw zien te verwijderen. Zo 
gauw dit gebeurd is krijgt de speler een 
nieuwe taak: een groter gebouw met meer 
bommen en meer andere gevaren... 

De spelsituatie wordt op het beeldscherm 
3-dimensionaal door twee monitoren 
weergegeven, (al weer zo’n modever¬ 
schijnsel !). Onder de monitoren is een 
keuzemenu waar men kan kiezen welke 
robot gebruikt wordt en wat hij moet doen 
(de speler beschikt over meedere robots 
tegelijk). Aangezien de enige mogelijkheid 
om de bommen onschadelijk te maken is, 
ze van de ene naar de andere robot over te 
gooien (terwijl ze op scherp staan), is het te 
begrijpen, dat de speler heel wat spannen¬ 
de uren en zweetdruppels in dit program¬ 


ma zal moeten investeren om tot resulta¬ 
ten te komen. Al met al is deze actie- 
adventure een programma dat bij de recht¬ 
geaarde spelfanaat niet in de verzameling 
mag ontbreken. Van Ariolasoft voor 
ƒ 69,90 op disk en ƒ 45,- op tape. • 

Beslist het leukste spel dat wij deze 
ronde onder ogen kregen. 


Druid 

Firebird, de maker van Druid, scoorde eni¬ 
ge tijd geleden een grote software-hit met 
Elite en na enige recentere teleurstellingen 
waren we benieuwd naar dit nieuwe pro- 
dukt. De naam zegt het al: het gaat hier 
allemaal om een druide (medicijnman uit 
het stenen tijdperk). Zijn taak is het om 
Belorn, het land waar alles zich afspeelt te 
redden van de indringers, door de interpla¬ 
netaire poort te sluiten. Op zijn weg daar¬ 
heen moet hij vele gevaren trotseren, in de 
eerste plaats spoken, vervolgens boven¬ 
maatse torren en nog veel meer engerds. 
Zijn taak is dan ook haast onuitvoerbaar en 
vele voorgangers, die het eerder probeer¬ 
den, waren nu als geesten rond. Gelukkig 
wordt hij af en toe bijgestaan door een 
hulpje en is het mogenlijk op bepaalde 
plaatsen extra (levens-)kracht in te slaan. 
Jammer genoeg wordt alles tweedimensi¬ 
onaal weergegeven en dat maakt Druid tot 
slechts een 'gewoon’ spel. De kwaliteit is 
echter toch weer beter dan sommige an¬ 
dere programma’s die we de laatste tijd 
van Firebird kregen. 

De prijs is ook zeer redelijk: ƒ 39,90 op 
cassette. 

Nederlandse distributie Ariolasoft • 


Aetiesoftware 

Er komen een aantal hele goede spelletjes 
aan, waarbij de men de grafische kwalitei¬ 
ten van de C-64 opnieuw tot een hoger 
niveau heeft opgepoetst. Daarbij is de disk 
nu vrijwel altijd onmisbaar, men haalt 
steeds weer nieuwe "graphics” en andere 
informatie van de disk af gedurende het 
programma. Van Accolade (importeur 
Aackosoft), bekend door o.a. HardBall, is 
er nu een vluchtnabootser, die Ace of Aces 
heet. Gebaseerd op het vliegen van een 
WON jager/bommenwerper van de RAF, zit 
er een heel verhaal vast aan de simulator. 
Men kan verschillende opdrachten uitvoer, 
compleet met "briefing”, keus qua wapens 
en verschillende gevechtssituaties. Bom- 
menwerpen, luchtgevecht, raketten onder¬ 
scheppen, alles in een fraaie grafische 
opzet. Een nieuwe vliegtopper. • 
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In een aantal artikelen gaat P. Sjauw En Wa in op 
verschillende hardware-uitbreidingen voor de 
64. Dit keer de diskversnellers, om de kwaliteiten 
van de disk drives wat op te voeren. 


Diskversnellers 



V olgens het Duitse blad CHIP van 
blijkt de CBM-64 nog steeds de 
meest verkochte homecomputer 
te zijn. Meestal in combinatie 
met de VC-1541, de betaalbare 
disk- drive van Commodore. 

Helaas blijft er van het oorspronkelijke 
enthousiasme over deze drive weinig over 
nadat men hem enige tijd in gebruik heeft 
gehad. Met name de data-overdrachtss- 
nelheid van de VC-1541 bezorgt een nor¬ 
maal mens een "bepaalde” aandoening 
die niet door een psychiater te genezen is. 
De enige remedie hiertegen is de aanschaf 
van een DISKVERSNELLER. 

Gevaarlijk 

Een waarschuwing vooraf is hierbij op zijn 
plaats, daar dit "geneesmiddel” ook door 
kwakzalvers wordt aangeboden. Hieron¬ 
der volgt een lijst van bedrijven die volgens 
mij een verantwoord product leveren. 

- Jann Datentechnik uit Berlin. Levert Pro- 
logic DOS (DM 300,-). In Nederland gele¬ 
verd door Claessens Consultants in Breda 
(ƒ 369,-). 

- Christoph Dichte uit Brunsbuttel. Levert 
SpeedDos Plus (DM 269,-). 

- RoBmoller uit Meckenheim. Levert Turbo 
Access (DM 295,-). Tevens Turbo Trans 
(DM 495,-). 

Deze vier producten van Duitse firma’s 
bestaan uit de volgende onderdelen: 

- Nieuwe Dos. 

- Nieuw Operating System voor de CBM- 
64. 

- Parallelle data-overdracht. 

- Ingebouwde handige routines. 

Om de snelheid van de drive op te voeren 
beschikken o.a. SpeedDos en Turbo Ac¬ 
cess over een eigen disk formaat. Hierdoor 
worden de tijden voor de kopbewegingen 
aanzienlijk verminderd. Niet versneld wor¬ 
den programma’s met een eigen laadrouti- 
ne zoals bijvoorbeeld Flightsimulator II. 

SpeedDos Plus 

Dit wordt aan de User port aangesloten 
(niet doorgevoerd). 

- Centronics interface op print. 

- Formateren incl. verify : 23 sec. 

- Laden van onder de oude Dos geschre¬ 


ven prg. gaat 6x zo snel. Onder SpeedDos 
10x zo snel. 

- Saven onder oude Dos gaat nu 1.5x zo 
snel. Onder SpeedDos gaat dit 10x zo 
snel. 

- Interne disk-operaties worden 2-3 keer zo 
snel uitgevoerd. 

- CP/M loopt 3x zo snel. 

- Cassette routines zijn uitgeschakeld. 

- RS 232-bus kan niet gebruikt worden 
(dus geen modem). 

- Ingebouwde mini-monitor. 

- Diverse handige routines. 

- Er zijn verschillende copiers op de markt. 
Er is zelfs een programma om SpeedDos 
3x zo snel te maken. 

Wat de compatibiliteit betreft valt het vol¬ 
gende op te merken. De oudere versie van 
SpeedDos bleek niet te werken met enkele 
nieuwere versies van DataBecker pro¬ 
gramma’s. Deze nieuwe versie schijnt ech¬ 
ter wat compatibiliteit betreft nogal verbe¬ 
terd te zijn. 

Turbo Access 

- Wordt aan de Expansion port aangeslo¬ 
ten (doorgevoerd). 

- Centronics interface op print. 

- Formateren in 16 sec. 

- Laden onder oude Dos gaat nu 6x zo snel. 

- Laden van programma in Turbo Dos 
formaat gaat 10x zo snel. 

- Saven incl. verify onder Turbo Dos gaat 
3x zo snel. 

- Geen cassette routines meer. 

- Diverse ingebouwde nuttige routines. 

- Oude Operating system is m.b.v. een 
schakelaar weer in te schakelen. 

- Copieerprogramma’s worden bijgele¬ 
verd. 

- Kostenloze update service. 

- Compatible met bijna alle programma’s. 
Turbo Access is wat compatibiliteit betreft 
zeker beter dan SpeedDos. 

Prologic DOS 

- Wordt aan de Expansion port aangeslo¬ 
ten (doorgevoerd). 

- Centronics interface op print. 

- Formateren in 21 sec. 

- Laden van programma’s onder de oude 
Dos gaat 25x zo snel. 


- Saven onder oude Dos gaat nu 12x zo 
snel. 

- Andere disk-operaties gaan 2-3x zo snel. 

- Men kan 40 tracks formateren. Hierdoor 
ca. 20 Kb extra . 

- Er is een nieuw commando voor de VC- 
1541 bij gekomen. 

- Men kan zowel hardwarematig als soft¬ 
warematig naar het oude operating Sys¬ 
tem terugschakelen. 

- Geen cassette routines. 

- Diverse ingebouwde nuttige routines. 

- Zeer hoge compatibiliteit met de be¬ 
staande software. 

Prologic Dos moet wat compatibiliteit be¬ 
treft beter zijn dan de Turbo Access. Men 
kan nl. in 5 stappen softwarematig op het 
oude operating system overschakelen. De 
grote snelheid van dit systeem is onder 
meer te danken aan het feit dat steeds een 
hele track gelezen wordt in het RAM ge¬ 
heugen van de floppy. Nog sneller wordt 
het als we een hele schijf ineens kunnen 
lezen. 

Extra geheugen 

Turbo Trans is zo’n systeem, dat het pro¬ 
bleem van de trage floppy op een in wezen 
bekende manier heeft opgelost. Er wordt 
beter gebruik gemaakt van het feit dat de 
VC-1541 een eigen processor heeft. Om 
een hele schijf in een keer in te kunnen 
lezen wordt het floppy geheugen met 256 
Kb uitgebreid. In 10-20 sec. wordt dan de 
hele schijf ingelezen. Alle verdere disk 
operaties vinden dan in het RAM geheu¬ 
gen van de floppy plaats. Wijzigingen wor¬ 
den d.m.v. een interrupt op de schijf ge¬ 
schreven. Dit alles levert een over¬ 
drachtssnelheid van ca. 50 Kb/sec. op. Dit 
is ca. 120x sneller dan normaal. Het sys¬ 
teem wordt incl. diskmonitor en kopieer 
programma’s geleverd. 
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Voor het maken van een leuk programma heb je soms tekens nodig die niet standaard 
in de tekenset van de computer zitten. Je moet dan dus zelf tekens ontwikkelen. Maar 
hoe werkt dat? Henk Boxma geeft in dit artikel de antwoorden. 


Voor C-16/Plus 4 

Zelf tekens ontwikkelen 


D e karakterset (dat zijn alle let¬ 
ters, cijfers en symbolen) waar¬ 
over de C-16 beschikt, bestaat 
uit 512 verschillende tekens. Die 
tekens zijn verdeeld over 4 
hoofdgroepen. Je kunt echter maar 
over twee van die vier tegelijkertijd be¬ 
schikken, omdat de tekens diapositief 
en dianegatief zijn. Met andere woor¬ 
den: je kunt maar over 256 tekens tege¬ 
lijkertijd beschikken. 

Bij de C-16 (en trouwens iedere 8-bitter) is 
een karakter opgebouwd uit een matrix 
van 8 bij 8 hokjes. Een horizontale reeks 
van 8 hokjes noemen we een BYTE. Een 
karakter is dus opgebouwd uit 8 bytes. 
Iedere groep van 8 bytes op zich is weer 
genummerd: 

A heeft waarde 1 
B heeft waarde 2 
C heeft waarde 3 
enz. 


De grootst mogelijke waarde is 255. 

Deze waarden kun je vinden in het C-16 
handboek. De tabel staat bijna achterin. 
Let goed op datje wel de zgn. ”poke tabel” 
neemt en niet die met de ASCII-codes! 
Als voorbeeld nemen we de letter A 



= 24 
= 60 
= 102 
= 126 
= 102 
= 102 
= 102 
= 0 


In byte 1 hebben bit 8 en 16 de waarde 1. 
We zeggen nu: bit 8 en bit 16 zijn ”aan”. De 
waarde van de poke wordt nu 8 + 16 = 24. 
De waarde van de poke van byte 2 is dus 4 
+ 8 4* 16 Y 32 — 60 enz. 


Karakter op het scherm 

Om een karakter op het scherm te krijgen 
moeten we de volgende stappen door¬ 
lopen. 

0 Het PRINT-commando. 

Voorbeeld: PRINT ”A” 

Er zal nu een A op het scherm worden 
gezet. 

0 Het PRINTCHR$(x)-commando. 
leder teken op de C-16 heeft een ASCII- 
waarde, die ligt tussen de 0 en de 255. Let 
wel: deze waarden zijn niet gelijk aan de 
”poke”-waarden! Bijna achterin het hand¬ 
boek staan al deze waarden vermeld. 
Voorbeeld: PRINTCHR$(65) 

Er komt nu een A op het scherm, omdat die 
waarde 65 heeft. Vul in plaats van 65 maar 
eens een ander getal in tussen de 0 en de 
255. Je zult zien dat iedere waarde zijn 
eigen teken heeft. 

Q Het POKE-commando. 

Het beeldscherm van de C-16 is opge¬ 
bouwd uit 320 bij 200 puntjes. Dat is gelijk 
aan 40 bij 25 hokken, leder hokje heeft zijn 
eigen adres. Het hokje linksboven heeft 
waarde 3072 en het hokje rechtsonder 
heeft waarde 4071. De overige hokjes heb¬ 
ben een waarde tussen 3072 en 4071 op 
de volgende manier: 


Voorbeeld: 

POKE4032,1 zet een A op adres 4032 
(linksonder) 

POKE3072,2 zet een B op adres 3072 
(linksboven) 

POKE3111.4 zet een D op adres 3111 
(rechtsboven) 

enz. 

Kort samengevat: 

Bij een POKE-commando worden dus 
achtereenvolgens het adres (0- 65535) en 
de code (0-255) aangegeven, gescheiden 
door een komma: POKE adres,code 
Deze waarden staan in de poke-tabel. 
m- Nog een andere manier is het CHAR- 
commando. 

Voorbeeld: 

CHAR kleurcode,x,y,string,reverse 
kleurcode = 1 is multicolor, 0 is normaal 
kleur 

x = teken rij 0 - 39 (van links naar rechts) 
y = teken rij 0 - 24 (van boven naar 
beneden) 

string = een naam tussen aanhalingste¬ 
kens 

reverse: 0 is uit (reverse off), 

1 is aan (reverse on). 



4071 
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CHAR1,10,4,”test”: zet het woord test in 
kolom 4 en rij 10. 

Dit commando kan zowel in de grafische 
als in de niet-grafische mode worden ge¬ 
bruikt. 

Een kort programma 

Om een en ander van het bovenstaande in 
de praktijk te gebruiken, gaan nu zelf een 
teken ontwerpen. In onderstaand voor¬ 
beeld is dat een copyright-teken. 

We tekenen eerst het schema en vullen dat 
in. Daarna kunnen we de waarden van de 
pokes bepalen en die erachter schrijven. 


128 64 32 16 8 4 2 1 




SS 
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is 
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ps 



SÉ 
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i|f 

pil 


fl 


pil 


iti^ 

ü 



De volgende stap is een programma te 
schrijven om de karakters vanuit de ROM 
(het vaste geheugen) in de RAM (het ge¬ 
heugen dat we kunnen programmeren) te 
zetten. Dat doen we met dit programma: 
10 v=65280 

20 pokev+18,peek(v+18) and 251 
30 pokev+19,peek(v+19) and 3 or 48 
40 fort=832 to 849 
50 read a : poké t,a; next:sys832 
60 data 162,0,189,0,208,157,0,48, 

189,0,209,157,0,49,202,208, 

241,96 

Standaard luiden de regels 20 en 30 resp.: 
poke 65298,196, en poke 65299,208 
Tip: programmeer van tevoren een zgn. 
key op de volgende manier: 
keyV’poke 65298,196:poke 65299,208” 
+CHR$(13) 

Als je door een foute handeling (bv. een 
tikfout) toch een warbeeld krijgt, dan hoef 
je alleen F1 in te typen. Het scherm krijgt 
dan weer een normaal aanzien. Typ dan 
"HELP” en de computer zal de foutmel¬ 
ding op het scherm zetten. 

De regels 40 t/m 60 vormen een machine- 
taalroutine die de karakters vanuit de ROM 
in de RAM zet. Deze karakters starten op 
adres 12288. 

Als ik karakters ontwikkel, begin ik op 



Ham 14”kleurmonitor 

Huyn 

ongelooflijk 
lageprijs 


Manudax biedt u een 14” kleurenmonitor van praktisch professio¬ 
nele kwaliteit voor een bijzonder scherpe prijs. Een monitor met 
uitstekende technische specifikaties, bij uitstek geschikt voor 
uw computer. 


■ 14" kleurenbeeldscherm ■ PAL en RGB ingang ■ bandbreedte 
7 MHz ■ groen omschakelbaar ■ audio kanaal ■ metalen 
behuizing ■ robuuste konstruktie ■ 


Novex 14" 
kleurenbeeldscherm, 
' incl. kabel 


ƒ500. 


excl. btw 


Ëaarn 



postbus 25, 5473 ZG SÜ 

Heeswijk-Dinther, Holland 
tel. 04139-8911, 

telex 74810, facsimile 04139-1009 (aut). 



adres 12800, zodat ik alleen de symbolen¬ 
set verander en niet de belangrijke letters 
en cijfers. 

We vervolgen ons programma: 

200 fort= 12800 to 12800+(ak X 8)-1 
210 read a: ifa> -1 then poke t,a : next 

In regel 200 staat de variabele ”ak” voor 
"aantal karakters”. In ons geval is dat 1, 
omdat we 1 karakter hebben ontworpen 
en dat in het geheugen willen zetten. Regel 
200 wordt dus: 

200 fort=12800 to 12800+(1 X 8)-1 
Nu zetten we de data van ons copyright- 
teken in regel 1000. Deze regel ziet er zo 
uit: 

1000 data 

126,195,153,161,161,153,195,126 
Nu kunnen we het programma RUNnen. Er 
gebeurt niets zichtbaars, maar als we nu 
POKE3072,64 intikken zien we in de linker 
bovenhoek ons teken staan! 

We maken nu nog een teken, een pijl. We 
tekenen weer een schema en vullen het in. 


= 8 


= 28 
= 62 


= 127 


= 8 


= 8 


= 8 


= 8 



Het aantal karakters is nu dus 2. Daarom 
passen we regel 200 weer aan: 

200 fort = 12800 to 12800 + (2 X 8) - 1 
Nu moeten er nog wat data bij, die zetten 
we in regel 1010. 

1010 data 8,28,62,127,8,8,8,8,-1 
Ons programma is af. Als we het nu RUN¬ 
nen en daarna POKE3072,65 intikken zien 
we ons pijltje in de linkerbovenhoek staan. 
Sneller gaat: PRINT : REM. Dit is shift + 
★ teken. 

We kunnen nu dus zelf tekens ontwikkelen, 
ze in het geheugen en vervolgens op het 
scherm plaatsen. 

Je kunt deze informatie voor nog veel meer 
doeleinden gebruiken. Wat dacht je van 
een eigen spijkerschrift? Je hoeft dan al¬ 
leen het adres in regel 200 aan te passen. 
Adres 12800 wordt nu 12288! 


Veel success! 


Henk Boxma 
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LUC SALA’S 
DATAKOLOM 


Een bezoek aan de Comdex betekende dit jaar meer dan een handvol nieuws. Er was 
voor het eerst sinds jaren weer een positieve ervaring bij de pers en bij de bezoekers, er 
leeft weer iets. Maar wie bepalen nu eigenlijk wat in is, wat uit en wat er werkelijk aan de 
hand is. 

Smaakmakers ’87 


Voorspellen welke richting de computerin¬ 
dustrie uitgaat is natuurlijk een soort gok¬ 
spel. Niemand weet het zeker, alleen heb¬ 
ben journalisten daarbij het voordeel, dat 
ze mede die richting bepalen door een 
soort ”self fulfilling prophesy”. Dat klinkt 
tamelijk aanmatigend, maar laat ik uitleg¬ 
gen hoe dat werkt en waarom er meer dan 
een grond van waarheid in zit. 

Op de Comdex in Las Vegas kwamen dit 
jaar 82.000 bezoekers gemiddeld 3 dagen 
een volstrekt onoverzichtelijk aanbod aan 
microcomputers, randapparatuur, soft¬ 
ware en ’Vapourware” in ogenschouw ne¬ 
men. Door de amerikaanse manier van 
rekenen, gebaseerd op het aantal uitgege¬ 
ven badges, lijkt dat in vergelijking met 
bijvoorbeeld de Efficiency Beurs niet veel. 
Maar dat zijn dan wel bezoekers, die er 
minstens een vliegreis en een paar over¬ 
nachtingen voor over hebben om daar in 
Vegas bedolven te worden onder de 
stroom nieuwtjes en pseudo-nieuwtjes. Ze 
komen er ook om hun collega’s, leveran¬ 
ciers en klanten te ontmoeten en mis¬ 
schien ook wel om wat geld te vergokken. 

Samen vormen ze de bovenlaag van de 
computerindustrie. Ze zijn meestal heel 
goed op de hoogte van wat er zich op hun 
terrein afspeelt. Dat komt omdat ze natuur¬ 
lijk hun eigen produkten kennen, naar zo’n 
beurs komen om te kijken wat de concur¬ 
rent er van bakt en ook veel horen van hun 
collega’s. 

De pers speelt hierbij een heel vreemde rol. 
De bijna duizend journalisten en media¬ 
mensen hebben er, net als de verkopers, in 
wezen een soort jaarlijks congres. Voor 
degenen, die wereldwijd kijken, is het meer 
een halfjaarlijks gebeuren, de Hannover 
Cebit Messe is ook een heel belangrijke 
beurs. In ieder geval is zo’n show de 
gelegenheid om eens te horen wat men er 
allemaal off-the-record van vindt en flink te 
roddelen. En het leuke is, dat de computer¬ 
industrie dat middels een eindeloze reeks 
persconferenties, persrecepties, hospitali- 
ty-suites en feesten ook nog allemaal mo¬ 
gelijk maakt. Er gaat geen avond voorbij of 

je moet uit een heel schema kiezen en 


goed uitzoeken in welke hotels de beste 
parties zijn. Gezellig, want langzamerhand 
ken je de collega journalisten en ook de 
topmensen van de bedrijven redelijk goed. 
Het lijkt op een hele week feesten en 
afgezien van de vermoeide voeten en ge¬ 
broken ruggen door het gesleep met do¬ 
zen persberichten, lijkt dit een ideale job. 
En zo wordt het door de columnisten als 
John Dvorak van PC Magazine en Jerry 
Pournelle van Infoworld ook gebracht, ze 
rapporteren uitgebreid over dergelijke 
feestjes. Of ze het ook dit keer in die 
bladen zullen hebben over de Insider en de 
Insider Insider parties, weet wel dat ook dit 
jaar de vaderlandse journalistiek er weer 
bij was. Met een paar gewaardeerde colle¬ 
ga’s hebben we die befaamde columnnis- 
ten uiteindelijk zeer vroeg in de morgen in 
hun taxi’s gezet. Op dat feestje was ieder¬ 
een, die meetelt, dus mensen als Philippe 
Kahn, Leonard Tramiel, Lee Felsenstein, 
Stewart Alsop, Jan Lewis, enzovoorts. 

Wat is nu toch het belang van al dat praten 
en roddelen van die veertig of vijftig 
"spielmachers” op zo’n beurs? Beïnvloe¬ 
den ze nu werkelijk wat er gebeurt of zijn 
we met zijn allen alleen lachwekkend be¬ 
zig. Ik weet wel zeker, dat al die "executi- 
ves”, de top-journalisten en -analisten en 
andere goeroes daar uiteindelijk gewoon 
hard aan het werk zijn. Hoe werkt dat. Na 
drie dagen rondrennen over de beurs, 
persconferenties, salesmeetings en fo¬ 
rumdiscussies, heeft iedereen wel zo’n 
beetje de maximaal opneembare hoeveel¬ 
heid gegevens geïnhaleerd. Een mens 
wordt na 30 keer bekijken van een 80386 
de eenendertigste keer echt niet veel wij¬ 
zer meer. 

Gegevens, let wel, nog geen informatie. 
Het doorwerken van een enorme stapel 
persberichten over 386 micro’s, het bekij¬ 
ken van 30 EGA-kaarten, demo’s door¬ 
staan van tientallen nieuwe softwarepak¬ 
ketten is bepaald geen leuk werk. Maar na 
een paar dagen is dat toch gebeurd en 
begint zich een mening te vormen over wat 
er nu eigenlijk op zo’n beurs gebeurt, over 
de trends en onderstromen. Maar ja, wat 

de eenling denkt kan natuurlijk wel eens 

falikant mis zijn. Je kunt wat gemist heb¬ 


ben, net die ene persconferentie vergeten 
zijn of het gewoon niet begrepen hebben. 
Maar voordat je als journalist, maar ook als 
baas van een groot bedrijf nu teruggaat 
naar je gewone omgeving, moetje natuur¬ 
lijk wel proberen uit te vinden, of je eigen 
impressies wel kloppen. Dat kun je niet al 
te duidelijk doen, want er is niets vervelen¬ 
der dan er openlijk falikant naast zitten. 
Maar er moeten wel weer artikelen over 
geschreven worden of produkten bedacht 
worden. Stel je voor, dat niet EGA, maar 
PGC als de nieuwe grafische standaard 
van de grond komt. 

Iedereen loopt dus na een paar dagen met 
een half-klare opinie, met een heleboel 
feiten, maar nog geen complete visie en 
zoekt dus naar bevestiging. En dat gebeurt 
nu op dergelijke parties, waar de echte 
smaakmakers aan elkaar snuffelen, elkaar 
uitdagen, roddelen, vissen naar bevesti¬ 
ging en in het algemeen toch tot een soort 
consensus komen. Dat zullen ze niet er¬ 
kennen, men is tenslotte vreselijk trots op 
de eigen onafhankelijke mening, maar het 
gebeurt wel. En iedereen weet dat ook en 
probeert die gemeenschappelijke opinie 
ook wel te beïnvloeden. Want wat hier aan 
roddels en verhalen de ronde doet, duikt 
onherroepelijk een keer op in de publiciteit 
of in de directiekamers van de computer¬ 
bedrijven. De opinieleiders van de indus¬ 
trie maken namelijk, informeel en zonder 
dat nu allemaal bij de naam te noemen, uit 
wat zij als de trends en hoofdlijnen van 
deze Comdex en daarmee van de industrie 
voor de komende 6 tot 12 maanden zien. 
Ze gaan daarmee de volgende dag aan de 
gang, schrijven artikelen en rapporten, en 
die mening sijpelt dan de komende maan¬ 
den langzaam door in redacationele ko¬ 
lommen van kranten, bladen en andere 
publikaties. Dat duurt soms heel lang, de 
zaterdag na de Comdex brengen de NY 
Times, de San José Mercury News, en de 
San Francisco Chronicle al hun verslagen, 
maar ook de februari-nummers van veel 
maandbladen brengen nog Comdex 
nieuws. En raadt eens, wie in vrijwel al die 
bladen als columnist schrijven, jawel, de¬ 
zelfde smaakmakers, die op al die parties 
rondliepen. 

Misschien zijn we als journalisten beperkt 
in ons inzicht en kan men de Comdex 
Insider parties afdoen als industriële navel¬ 
staarderij zonder enig belang voor de wer¬ 
kelijke wereld. Ik denk het niet, ik heb het 
gevoel, dat daar op enig niveau het soort 
verfijnde afstemming plaats vindt, waar¬ 
voor we zelfs met electronic mail en 80486 
processors nog geen ”expert”-systeem 
kunnen bedenken. • 

L.Sala 
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TEST 


Floppy Flash Professional 


Gima Print Service brengt een inbouw- 
pakket op de markt, waarmee het mo¬ 
gelijk wordt 45 maal sneller te laden en 
25 maal sneller te saven met de 1541 
diskdrive. De 1541 is berucht om zijn 
traagheid: laden of saven van een tape¬ 
recorder met een snellader gaat sneller 
dan werken met een 1541 diskdrive. 
Daarom zal deze module voor velen een 
grote verbetering van hun computer¬ 
systeem zijn. 

De oorzaak van de traagheid van de 1541 
ligt in het feit dat het een seriële diskdrive 
is, waarbij de gegevens achter elkaar ver¬ 
zonden worden, in plaats van een parallel¬ 
le, waarbij de gegevens tegelijkertijd ver¬ 
zonden worden. Een tweede oorzaak van 
de lage snelheid is de langzame Commo¬ 
dore DOS. De Floppy Flash Professional 
verhelpt beide problemen: de diskdrive 
krijgt een parallelle aansluiting op de car- 
tridgepoort en de DOS wordt aanzienlijk 
verbeterd en versneld. Om dit mogelijk te 
maken worden in de computer en in de 
diskdrive IC’s bijgeplaatst en vervangen. 

De inbouw 

Het inbouwen van het pakket vergt onge¬ 
veer een half uur. Hiervoor is geen speciale 
kennis vereist, het is gewoon een kwestie 
van het oude IC eruit en het nieuwe IC 


erinklikken. In de handleiding staat duide¬ 
lijk hoe en wat er moet gebeuren.(Het 
vervangen van de IC’s moet natuurlijk wel 
voorzichtig gebeuren.) Bij het aansluiten 
van alle kabels na het monteren komt er nu 
ook een parallel-kabel met uitgang op de 
cartridgepoort. Verbaas U er niet over dat 
ook de seriële kabel moet blijven zitten: de 
computer is dan dus met twee kabels aan 
de drive verbonden. 

Naast het sneller laden biedt de Floppy 
Flash Prof. de gebruiker nog een aantal 
extra functies: 

O er kunnen 40 tracks geformatteerd wor¬ 
den i.p.v. 35. Er is dus meer ruimte voor 
software op een diskette; 

©de computer geeft aan waar in het ge¬ 
heugen geladen wordt; 

0 op het printplaatje dat achter in de 
computer gestoken wordt zit een re- 
setknop, waarmee verschillende soor¬ 
ten resets mogelijk zijn; 

0 er zijn extra (of snellere) DOS comman¬ 
do's. Deze kunnen met de functietoet¬ 
sen opgeroepen worden; 

©de gebruiker beschikt over een aantal 
extra cursormogelijkheden. Een ervan 
is het vermelden zeker waard: iedereen 
heeft wel eens in de knoop gezeten met 
ongewenste cursorbesturingstekens na 
het aanhalingsteken. Met CTRL/spatie 
is dit nu direct uit te schakelen. 



Aanrader 

Wij zijn zeer onder de indruk van de presta¬ 
ties van deze uitbreiding voor de C-64. De 
naam Floppy Flash Professional is zeker 
terecht, want hij geeft uw diskdrive profes¬ 
sionele eigenschappen. Binnenkort komt 
er ook een versie voor de 1541C en de 
1570/1571 in combinatie men een C-128. 
Het pakket wordt geleverd in combinatie 
met een diskette met programma’s. De 
prijs van het systeem is ƒ 325,- en voor 
mensen die al Speeddos of Floppy Flash 
bezitten is de prijs voor alleen de uitbrei¬ 
ding ƒ 199,-. Deze prijzen lijken wat hoog 
maar zijn naar onze mening zeker gerecht¬ 
vaardigd. 

Wanneer de Floppy Flash is ingeschakeld 
(dit gebeurt met een schakelaartje) kan er 
niet met tape gewerkt worden. 



Abonnement 
op dit blad? 

Bel gratis 06-0224222 

HP Teleservice: 
elke dag tot 20.30 uur 
(ook in het weekend) 


THERE IS AN ALTERNATIVE. 


WARGAMES 


Annuals of Rome 
Napoleon 
Battle of Britai n 
Battle for Midway 
Fal kland3 ‘Q2 

f.39,00 


YYat de VPRO niet heeft, 
hebben vij vel! 

M AX HEADRQQM 

Max Laadvermogen 
voor slechts 

f.39,00 


Vorldgames 
Infiltrator 
Fist II 
Paperboy 
1 942 

Trailblazer 
Chrashed Masks 
Sanxion 
Dragons Liar 
They sold a million 


G.T.SOFT WITTE DE WITHSTR.27A. A'DAM 1 057XG. Tel. 1 66565 


Vraag naar onze catalogus. Spelen voor Commodore en USX 
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SOFTWARE ★ SOFTWARE ★ SOFTWARE 


Hacker II 

Het softwarehuis Activision, in ons land 
geimporteerd door Ariolasoft, houdt van 
succesnummers. Maar men wil ook graag 
een stukje creativiteit behouden. Hacker II 
(van Activision) is daarom geen vervolg op 
de beroemde krakeradventure Hacker I 
van hetzelfde softwarehouse, zoals men 
zou verwachten. Zo wordt in tegenstelling 
tot dat spel bij Hacker II wel een handlei¬ 
ding geleverd, (die is ook in het Neder¬ 
lands). 

Hierin staat in het kort de bedoeling en de 
werking van het programma: 

Het doel van de speler is, om uit een 
geheim militair complex in Siberie een 
kopie van de z.g. "Doomsday papers” op 
te halen. Deze zeer geheime documenten 
zouden het de Sovjet-Unie mogelijk ma¬ 
ken al de Westerse regeringen omver te 
werpen. Om deze papieren te bemachti¬ 
gen en zo de vrije wereld te redden, heb¬ 
ben agenten van de C.I.A. drie MRU’s in 
het complex geplaatst. (Mobile Remote 
Units zijn afstandbestuurbare robots.) De¬ 
ze robots zijn vanaf de huiscomputer te 



bedienen. Op het scherm wordt het spel 
weergegeven door 4 monitoren en een 
besturingspaneel. Met de monitoren kan 
men het camera-beveiligingssysteem af¬ 
tappen of op een kaart van het gebouw 
zien waar de robot is. Het moeilijkste aan 
het spel is te zorgen onontdekt te blijven. 
Hulpmiddelen hiervoor zijn de wachtpa- 
trouille- en cameradetector. Als de robot 
eenmaal ontdekt is, wordt hij vroeger of 


later (maar onherroepelijk) vernietigd door 
de Annihilator. Maar de makers van Hac¬ 
ker hebben weer lang niet alles verteld. 
Gedurende het spel zult u meermalen voor 
(on)aangename verrassingen komen te 
staan. 

Goede graphics 

Op de uitvoering van Hacker II is weinig 
aan te merken: de graphics zien er leuk uit 
en zijn geanimeerd. De geluidseffecten zijn 
goed en het programma is in geen enkel 
opzicht saai te noemen. Het enige nadeel 
van deze beeldadventure is de zaak tame¬ 
lijk ingewikkeld is opgebouwd. Hacker II 
kan niet ”even op een middagje” goed 


worden gespeeld. Dat is voor de kenners 
dus een aanbeveling. 

Wij kunnen daarom degenen die geen 
bezwaar hebben tegen wat denkwerk en 
ook tijd over hebben, dit programma van 
harte aanbevelen, het is een beeldadven¬ 
ture met pit. 


IEEE 488 interface 

Het Britse bedrijf Brainbox speelt in op 
de vraag naar een IEEE interface voor 
de C-64 en C-128. Tot de belangrijkste 
lEEE-randapparatuur behoren de snelle 
disksdrives van Commodore. Bezitters 
van de 4040, 1001, 8050 en 8250 drives 
of een Commodore hard disk kunnen zo 
de trage seriële databus omzeilen. Een 
tweede belangrijke toepassing van het 
488 interface is de mogelijkheid om 
Commodore en andere lEEE-printers, 
deze afdrukkers zijn incompatibel met 
de C-64 en C-128 machines, op een 
Commodore huiscomputer aan te 
sluiten. 

Het IEEE 488 interface van Brainbox wordt 
in het cartridge slot van de C-64 of C-128 
geplugd. De vooruitdenkende ontwerpers 
hebben het interface aan de bovenzijde 
van een nieuwe socket voorzien zodat 
reeds bestaande uitbreidingmodules zo¬ 
als snelladers en ROM-cartridges tegelijk- 
tijd met de IEEE 488 gebruikt kunnen 
worden. 

Uit het interfacekastje komen aan de voor- 
en achterzijde de bekende groene print- 
plaatuiteinden met de verbindende meta¬ 
len kontaktstrips. De voorste kontaktstrips 
worden in het cartridgeslot geplugd. Het 
achterste printplaatje, met C-64/C-128- 
schakelaar, is de eigenlijke lEEE-connec- 
tor. Deze eindconnector wordt via een Pet- 
to-IEEE-kabel met de desbetreffende 
lEEE-randapparatuur verbonden. 

Het Brainbox IEEE 488 interface biedt de 
Commodore C-64 en C-128 bezitter de 
volgende mogelijkheden: 
w-De hoogst mogelijke dataoverdrachts- 
snelheid bij lEEE-diskdrives. Na het com¬ 
mando FAST werkt de C-128 op zijn hoog¬ 
ste kloksnelheid. NB.: na het FAST-com- 


mando valt de RF-output tijdelijk uit. 
wCP/M-compatibiliteit. 
wOmschakelbaar tussen de C-64- en C- 
128-mode. Deze optie is zowel belangrijk 
voor het draaien van software als voor het 
gebruik van de verschillende Commodore 
computers. 

•w-Een aanzienlijk grotere printerkeuze. 
■rln de 64-mode is het hulpprogramma 
DOS Support standaard beschikbaar. 
w-Met behulp van meerdere Brainbox in¬ 
terfaces kan een relatief goedkoop Com¬ 
modore huiscomputernetwerk worden op¬ 
gezet. De verbinding wordt via een 18 pins 
lintkabel tot stand gebracht. 
m- Seriële en parallelle randapparatuur kan 
gelijktijdig en door elkaar gebruikt worden. 
Voor de beziters van de modernere 1571 
en 1572 Commodore drives vervalt het 
voordeel van een sneller dataoverdracht. 
Beide drives maken immers gebruik van 
een veel snellere databus dan het oude 
seriële busontwerp. 

Het Brainbox IEEE 488 kost inclusief het 
27 pagina’s tellende Engelse manual ca. 
ƒ 280,-. Nadere info bij uw computershop 
of Brainbox, Lynmouth Road, Liverpool 
LI 7 6AW, S Engeland, 051-2202500. • 
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De aanpak 

Ten eerste moet je weten welk onderwerp 
of deelvakgebied in aanmerking komt om 
via de computer te trainen. In ons geval is 
dat het automatiseren van de tafels van 
vermenigvuldiging. 

Ten tweede zal er een doelstelling gefor¬ 
muleerd moeten worden. Wat wil je berei¬ 
ken met het programma. Wat moeten de 
leerlingen na een bepaalde oefenperiode 
kennen of kunnen. 

Dan moet je een analyse maken van wat je 
eigenlijk wil, dat het programma doet. 
Moet het alleen trainen of juist toetsen. 
Moet er ook ondersteuning zijn voor de 
leerlingen, als er problemen ontstaan. 
Moeten de resultaten bijgehouden worden 
of wil je ze zelfs op papier aan het einde 
van de dag. Je ziet een hele waslijst. Schrijf 
alles maar eens op, daar heb je later veel 
plezier van. 

Een zeer belangrijk aspekt is de gebruiks¬ 
vriendelijkheid. Er moeten tenslotte kinde¬ 
ren mee werken. Tussenkomst van de 
leerkracht moet eigenlijk niet nodig zijn. 
Vervolgens moeten we nog denken aan 
een goede dokumentatie van het program¬ 
ma, zodat ook in een later stadium het 
programma nog overzichtelijk is voor de 
programmeur. Ook al is dat niet de oor- 
spronkleijke auteur. Dan kan op een bijbe¬ 
horend papier. Slimmer zijn REM state¬ 
ments in het programma zelf. Zeker als het 
programma zelf weinig geheugenruimte 
nodig heeft. Tenslotte is er nog het aspekt 
van de vormgeving. Het oog wil ook wat. 
De grafische mogelijkheden van de Com¬ 
modore familie zijn voldoende groot om er 
iets leuks van te maken. In het voorbeeld 
hebben we de beeldscherm lay-out be¬ 
wust eenvoudig gehouden. Het gaat im¬ 
mers om de programmering in BASIC. 
Overigens houdt niemand je tegen om dat 
aan te passen. 

Tot nu toe is de computer nog niet eens 
aan geweest. Dat zal nog een tijdje niet 
nodig zijn, want je kunt beter eerst een 
stroomschema maken, om later het pro¬ 
grammeren te vergemakkelijken. In zo’n 
schema breng je alle zaken, die van belang 
zijn, in kaart. 


Modulair of lineair 

Bepaal nu of het programma modulair of 
lineair wordt opgebouwd. Dat betekent 
werken met afgeronde programmadelen, 
die via GOSUB worden geaktiveerd of dat 
alle delen van het programma achter el¬ 
kaar komen. Gezien de BASIC van de 
Commodore computers is de keuze voor 
lineair programmeren aan te raden. In het 
programma voorbeeld is dit ook gedaan. 
Er worden wel een aantal sprongen ge¬ 
daan. Deze maken het programma zeer 
wendbaar. 


De opbouw van het 
programma 

Nu gaan we het programma opbouwen. 
Bepaal eerst welke regelnummers gere¬ 
serveerd worden voor de verschillende 
programmaonderdelen. Bekijk het over¬ 
zichtje. We beginnen met de INITIALI¬ 
SATIE. 

Hier worden variabelen benoemd en gedi¬ 
mensioneerd. Tevens wordt een set ka¬ 
ders opgebouwd, omdat die dan niet 
steeds geprogrammeerd hoeven te wor¬ 
den. Ze worden in de variabelen KI $ tot en 
met K7$ gezet. Even tellen, K1$-K4$ zijn 
elk 40 karakters lang. Een hele scherm- 
breedte dus. Op regel 10 wordt de variabe¬ 
le NE$ gemaakt. We gebruiken deze om 
de tekst eenvoudig op de gewenste plaat¬ 
sen te krijgen, omdat een commando zoals 
LOCATE ontbreekt in BASIC Versie 2.0. 
NE$ staat voor NEER. Vergelijk de CHR$- 
tabel in de handleiding van je computer. En 
omdat we het woordje RETURN veel in de 
schermtekst gebruiken, komt die ook in 
een variabele (zie regel 90). 

Dan komt de instelpagina voor de leer¬ 
kracht. Hier kan hij of zij bepalen welke 
tafel door het programma wordt gegene¬ 
reerd en hoe lang elke leerling aan de 
computer mag werken. De computer ac¬ 
cepteert geen 0 als invoer en ook geen 
letters (regels 130 en 135). Op regel 140 
staat een wat toverachtige formule. De 
invoer van de tijd ging met de alfanume¬ 
rieke variabele TD$. Deze vormt de basis 
voor de tijdsinstelling voor de leerling later 
in het programma. Daar wordt namelijk 
een vergelijking gemaakt met de tijd op de 
ingebouwde klok. Het formaat van TIS 
(deze is vastgesteld) moet overeenkomen 
met het te vergelijken formaat van TYD$. 
Vandaar die regel 140. 

Ook staat op deze pagina een soort menu 
voor de werking van de Functie-toetsen 
vanaf regel 145. Onthouden dus. Op regel 
175 staat GOSUB 1500. De sub-routine op 
die regels wacht op het indrukken van de 
RETURN-toets. 

Op regel 300 gaat het leerlingengedeelte 
van start. Hier geeft de leerling zijn of haar 
naam. De computer bewaart die naam met 
de nog komende gegevens van die leer¬ 
ling. Dan volgt vanaf regel 400 een hulppa¬ 
gina voor de leerling. Hij kan nu zien wat hij 
moet doen. Ook later, als hij bezig is en niet 
meer weet hoe het ook weer moest, kan 
een druk op de f 7 toets uitkomst brengen: 
de pagina komt dan terug, zonder de rest 
van de oefening te verstoren. Ook hier 
weer GOSUB 1500. 

Het oog wil ook wat 

Dan wordt het scherm opgebouw vanaf 
regel 500. De klok wordt op ”000000” 
gezet en de K$ kaderstrings zetten het 
beeld op. De kaders zijn echter nog leeg en 



krijgen door de regelnummers vanaf 600 
een invulling. Zichtbaar worden de naam, 
de te oefenen tafel, het aantal gedane 
sommen, het aantal goede antwoorden en 
de score. Deze laatste is een soort beoor¬ 
deling tijdens de rit. Regel 640 en 645 
wissen de kadertjes van de tafelsom en de 
mededeling of het gegeven antwoord 
goed of fout was. Later zie je wel wat 
hiermee wordt bedoeld. 

Dan komen de sommen op de proppen. 
Vanaf regel 700 wordt een tafelsom gege¬ 
nereerd en op het scherm gezet in zijn 
kadertje. De meeste regels in dit program- 
madeel zijn om voor een juiste lay-out te 
zorgen. Dan springt het programma naar 
regel 1000. Daar wordt het antwoord inge¬ 
voerd. Vanaf regel 800 wordt het gegeven 
antwoord gecontroleerd. Vervolgens 
wordt gekeken of de tijdslimiet al is bereikt, 
de score wordt berekend en er wordt een 
passende tekst op het scherm geplaatst. 
Dan springt het programma terug naar 
regel 600 en alles gaat van voren af aan. 
Is de tijd voorbij, dan gaat het programma 
naar regel 2000, waar de leerling een over¬ 
zicht krijgt van zijn prestaties en tevens het 
verzoek de volgende leerling te roepen. 
Drukt de leerling op RETURN, zoals ge¬ 
vraagd, dan start het programma opnieuw 
vanaf regel 300. Alle gegevens omtrent 
tafel, aantal gedane en goede sommen en 
de gekregen tijd zijn nu opgeslagen in het 
geheugen in de verschillende array’s, die 
eerder werden gedimensioneerd. 

Door tijdens het lopen van de oefening op 
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SHIFT/f5 te drukken kom je in die admin- 
stratie. Steeds 20 leerlingnamen komen 
met hun gegevens op het scherm. Een 
druk op de spatie geeft de volgende 20. 
SHIFT/fl start het programma vanaf de 
instelpagina voor de leerkracht. SHIFT/f3 
start vanaf het leerlingengedeelte en f7 
geeft de hulppagina voor de leerling. Al 
deze functietoetsen hebben dezelfde wer¬ 
king tijdens de oefening. Je kunt de oefe¬ 
ning dus op elk gewenst moment onder¬ 
breken en opnieuw ergens in het program¬ 
ma starten. 

De routine voor het invoeren van de ant¬ 
woorden (regel 1000) behoeft speciale 
zorg. De gegeven oplossing is slechts een 
voorbeeld van wat mogelijk is. Nog lang 
niet perfekt dus. Uit de praktijk zal blijken 
of deze constructie voldoet. 

Laatste detail 

Hoewel het om getalleninvoer gaat, wordt 
er toch gewerkt met een stringvariabele. 
Dit is, omdat een mogelijke foutmelding bij 
het invoeren van een letter dan achterwe¬ 
ge blijft. Wel wordt met de ASC-functie 
gekeken of een bepaalde speciale toets 
wordt ingedrukt. Bijvoorbeeld een func¬ 
tietoets. De DELETE-toets wordt gene¬ 
geerd, omdat die het schermplaatje ver¬ 
stoort. Met de SPATIE kan een foute invoer 
worden teruggenomen. De antwoord- 
string AN$ wordt dan met een element 
verminderd. Bij het indrukken van RE¬ 
TURN wordt de invoer verlaten om naar 
regel 800 te springen. 

Tot zover het voorbeeld-programma. Meer 
beoogt dit stukje BASIC ook niet te zijn: 
een voorbeeld. Het gaat meer om de ge¬ 
dachte, zoals ik die in het begin uitte. Als je 
klaar bent met programmeren volgt na¬ 
tuurlijk een fase van uittesten. Eerst droog 
en dan in de schoolpraktijk. Je staat er 
soms versteld van, hoe leerlingen het pro¬ 
gramma toch laten vastlopen. Weer aan 
het veranderen dus, tot alles goed loopt. 
En nu.aan de slag. 

B.M. 

PROGRAMMA-OP- 


BOUW 

0- 

INITIALISATIE 

100- 

STARTLEERKRACHT 

300- 

START LEERLING 

400- 

HULPPAGINA 

500- 

SCHERMOPBOUW 

600- 

SCHERMINVULLING 

700- 

SOMMENGENERATOR 

800- 

ANTWOORDCONTROLE 

900- 

TIJDSC0NTR0LE 

910- 

SOMMENTELLER 

920- 

SCOREBEREKENING 

1000- 

ANTWOORD INVOEREN 

1500- 

TOETS OPHALEN 

2000- 

EINDE OEFENING 

5000- 

ADMINISTRATIE 
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5 rem tafel oefen programma 
10 n=100:rem aantal leerlingen 
15 dim n$(n),as(n),g(n),sc(n),td(n),tt(n) 

2© poke 53280,9sprint chr$(14)chr$(8) 

25 : 

30 rem initialisatie 
35 neï=chr$(19):fort=lto21 
40 ne$=ne$+chr$(17) :ner:t 
45 fort=lto38:k*=k*+chr*(96) 

50 sp$=sp$+chr$(32):next 
55 kl$=k$+chr$(96)+chr$(96> 

60 k2$=chr$(176)+k$+chr$(174) 

65 k.3$=chr$ (125) +sp$+chr$ (125) 

70 k4$=chr*(173)+kt+chr*(189) 

75 k5*=left*(k2*,19)+chr*(174) 

80 fc6$=left$(k3$,19)+chr$(125) 

85 k7$=left$(k4$,19)+chr$(189) 

90 r$=chr*(18>+" RETURN M + C hr$(146) 

95 : 

100 rem start leerkracht 
105 print chr*(147); 

110 print"Met dit programma is het 
mogel i i k alle" 

115 prinf'tafels te oefenen." 

120 print 

125 prinf'Alle nodige instellingen 
kun ie nu doen.":print 
130 prinf'Welke tafel input tt$ 

:tt=val(tt$):if tt=0 then 100 
135 print:print"Hoeveel minuten 

:input tdi:if val(td$)=0 then 100 
140 tyd$=left*<"0000", 4-1 en(td$) )+td*+"00" 

145 print:print"Beteken is van de F-toetsen:" 

150 print:print"f 1 = Naar de instelpagina" 

155 print:prinf'f 3 = Naar de start 

van de oefening" 

160 print:print“f 5 = Naar de administratie" 

165 print:print "f 7 = Naar de hulppagina" 

170 print:print"f-toetsen indrukken met SHIFT" 

175 gosub 1500 
180 ; 

300 rem start leerlingen 

305 g=0: as=0: sc=0: >:=k + 1 : pr int chr$(147); 

310 prinf'Hoe is ie naam : ";:inputn$ 

315 print chr$(147)"Hallo, "n$ 

320 print 

325 print'Ue gaat vandaag tafels oefenen." 

330 print:print 
335 pr int"LET QP I" 

340 for t=l to 2000:next 

345 : 

400 rem hulp pagina 
405 print chr$(147); 

410 print"DIT MOET JE DOEN : " 

415 printsprint 

420 print"Je geeft antwoord op de 
tafel som in het" 

425 print:print"venster. Als je je vërgist, 
kun je het" 

430 print:print"verbeteren met de spatie-balk." 
435 print: prinf'Dat is die lange op 
het toetsenbord." 

440 print:print 

445 print"Als het antwoord is gegeven, 
moet j e op" 

450 print;print r*" drukken.":print 

455 print"Als ie deze pagina wilt zien, moet" 




460 printsprinf'op de -f 7-toets drukken." 

470 gosub 1500 

475 SI 

50O rem sc: luw 

505 print chri(147); 

510 tii="000000“:rent klok op nul 

515 print k 1 *; 1.2* ; : f or t = lto3:prmt k3t;:next 
520 print k4i: k 1 *: k2i; k3i ; 1:4*; k 1* 

525 print tab<10)k5i:for t=lto3 

sprint tab (10) k6i:next 
530 print tab(10)k7t: print tab(10)k5S 
535 print tab(10)k6tsprint tab(10)k7t 
540 printk2t;k3i;k4i 
545 ! 

600 rem scherm invullen 

610 print1efti(net,3)tab<2>“Aan de beurt is:" 
tab(25)"Tafels" 

615 printIefti(nei,5)tab(2)nitab(25)tt 
620 printleftt(nei,9): 

625 printtab(2)"Gedaan:"as; 

630 priottab(15)"Goed:"g; 

635 printtab(29)"Scores";spc(3-len(stri(sc)));sc; 
640 printrighti(net,5) 

:printtab ( 13)" " 

645 printrightt(nei,2> 

:printtab( 13)" " 

650 printnei;chri(29);“Druk als ie klaar 
bent op "rt 
655 : 

700 rem tafel sommen 

750 y=int(rnd(0)*10)+1;ify=yytben750 
755 q=2sify>9thenq=l 

760 print leftt(net,15)tab(10+q)y“ x "tt" 

770 print leftt(net,15)tab(23+q); 

775 goto 1000 
780 : 

800 rem controle 
805 an=val(an$) 

810 if an=y*tt then ci=" GOED! !" 

ï3 = g + l!SOto 900 
815 ct=" FOUT! !" 

820 : 

900 rem tijdscontrole 
905 h=0s if tii>tydt then h=l 
910 rem teller 
915 as=as+l 

92@ rem score berekening 
925 if as=0 then as=l 
930 sc=int((g/as)*10) 

935 yy=y 

940 print lefttIne»,19)tab(14)ci 
945 for t=l to 1000:next 
960 if h=l then 2000 
990 goto 600 
995 : 

1000 rem invoer van gegevens 
1005 anS="";an=0 
1010 get ai:if ai="" then 1010 
1020 if asc(ai>= 13 then 800 
1025 if asc(ai)=136 then 40@ 

1030 if asc(ai)=137 then 100 
1035 if asc(ai)=138 then 300 
1040 if asc(ai)=139 then 5000 
1045 if asc(ai)= 20 then 1010 
1050 if asc(ai)=32 then print chri(157) 

;chri(32)chri(157);:goto 1080 
1055 ani=ani+ai 
1060 if len(ani)>3 then SOO 
1065 print ai;:goto 1010 
1080 if len(aniXi then 1010 
1085 ani=lefti(ani,len(ani)-l) 

109O goto 1010 
110Ö : 

1500 rem toets halen 
1510 print:print"Druk op "ri" om 
verder te gaan. '* 

1520 get ai:if ai="" then 1520 
1530 if asc(ai) <> 13 then 1520 


154€» return 
1545 : 

200O rem einde oefening 

2010 11 (x ) =tt: ni (x ) =ni: as (x) =as 

: g (x ) =g: sc (:<) =sc: td (x ) =val (tdi) 

2020 print chri(147); 

2030 print*’Dit was het einde van de oefening." 
2040 printsprintsprint 

2050 print"Je deed de tafel van "tt(x) 

2060 print 

2070 prinf'Je hebt van de "as(x)“ opdrachten" 
2080 pr int: print g (x ) '* goed gedaan . 

209© printsprint 

2100 prinf'Je Score is; "sc(x) 

2110 priotsprinf'Druk op "ri’^en roep 
de volgende." 

2120 gosub 1520:goto 300 
2125 : 

5000 a=0:x=x-l;rem administratie 
5005 print chri(147); 

5010 print"NAAM"tab(15)"TAFEL AANTAL GOED TYD" 

5015 print kli 

5020 for aa=l to 20 

5025 a=a+lsif a>100 then a=l 

5030 print nt(a);tab(15)tt(a)spc (4) as(a>; 

5035 print spc(4)g(a)spc(3)td(a) 

5040 next aa 

5045 get aisif ai="" then 5045 

5050 if asc(ai)=139 then a=0:goto 5000 

5055 if asc(ai)=137 then 100 

5060 if asc(at)=134 then 300 

5065 if asc(ai)=136 then 400 

5070 if asc(at)= 32 then 5005 

5075 goto 5045 • 


EBCDN. 

AUTHORIZED COMMODORE REPAIR CENTRE 

VOOR SNELLE 
REPARATIE 
VAN: 

Cl 28, C64, Cl 6, VIC20 

MONITOREN, PRINTERS, DISC DRIVES 

en 

PCI 0, PC20 


bent u welkom aan de 

Antoniuslaan 1 (Industrieterrein) 

3341 GA H.l. Ambacht 

telefoon 01858-12766 
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Tekstverwerkers als Vizawrite en Superscript worden vaak genoemd. De prijs van deze 
programma’s ligt echter meestal boven de honderd (of zelfs tweehonderd) gulden. 
StarTexter 64 heeft door zijn mogelijkheden en prijs (circa ƒ 175,-) in Duitsland al voor 
opschudding gezorgd. Reden genoeg dit programma van Sybex eens nader te 
bekijken. 


Startexter 64 

Budget-pakket, moeilijk, 
maar de moeite waard 


H et beoordelen van een tekstpro¬ 
gramma is altijd moeilijk, vooral 
als men zelf gewend is aan een 
bepaald programma. Peter 
Boncz geeft toch een afgewo¬ 
gen mening over het budget-pakket van 
Sybex. 

Startexter 64 start met een mooi beeld- en 
geluidseffect. Dat is niet strikt nodig, maar 
wel aangenaam. De indeling van het 
beeldscherm ziet er op het eerste gezicht 
ook al duidelijk en overzichtelijk uit. 

Wat opvalt aan StarTexter, is dat veel al in 
het Nederlands werkt: boodschappen 
worden in onze taal weergegeven en veel 
afkortingen zijn van het Nedelandse woord 
afgeleid. Het programma werkt menuge- 
stuurd, maar voor directe commando’s 
worden afkortingen gebruikt. 

Er zijn in totaal drie hoofdmenu’s: 

F1 - het floppy menu. Via dit menu kan 
men laden saven etc. met de disk¬ 
drive. 

F3 - het print- en formatteermenu. Met dit 
menu kan men de tekst bewerken of 
op de printer zetten. 

F5 - het parametermenu. Hierin is het 
mogenlijk gegevens zoals de beeld- 
schermkleur, het lettertype enz. vast te 
stellen. 

Om direct opdrachten te geven is er een 
commandomodus, die men bereikt of ver¬ 
laat d.m.v. de CTRL toets. 

Edit 

StarTexter 64 heeft de volgende mogelijk¬ 
heden wat betreft het manipuleren met 
tekst: 

* centreren van tekst (M van Midden) 

* omschakelen van 40 naar 80 regels (S) 

* Word-wrapping. (Dit is het overzetten 
van een woord naar de volgende regel als 


het woord te lang wordt voor de vorige 
regel) 

* Zoeken en vervangen, (na het zoek¬ 
woord ’Z’) Het is ook mogelijk om het 
zoekwoord te vervangen door een ander 
woord. Dit kan met of zonder bevestiging, 
(oud woord= nieuw woord of oud woord 
= = nieuw woord) 

* Plaatsen of weghalen van tabulator- 
stops. (runstop of shift/runstop) 

* Blok operaties. A= begin van een blok, E 
= einde van een blok, L = naar links 
scrollen, R = naar rechts scrollen, T = 
verplaatsen, I = kopiëren, O = overschrij¬ 
ven en C = wissen. 

* StarTexter kan samenwerken met de da¬ 
tabase Starfile. Zo is het bijvoorbeeld mo¬ 
gelijk standaardbrieven te schrijven. 

Extra funkties 

Dit is een indrukwekkende lijst opdrachten 
die in zijn totaliteit niet bij Vizawrite of 
Easyscript voorkomt, maar StarTexter 64 
heeft zelfs nog meer, waarbij de overdaad 
in dit opzicht de gebruiksvriendelijkheid 
misschien zelfs een beetje schaadt: 

* rekenen en programmeren in BASIC. 

* De tekstverwerker beschikt over 6 ver¬ 
schillende lettersets die ook op de printer 
kunnen worden gezet. 

* Trema’s, accenten en zelfgemaakte te¬ 
kens (zoals bijvoorbeeld een telefoontje) 
kunnen worden gebruikt en op het scherm 
worden weergegeven. 

* De grafische tekens van de C-64 kunnen 
worden gebruikt. 

* Men kan met het bijgeleverde program¬ 
ma Starfont zelf tekens ontwerpen. 

* Teksten van Vizawrite, Textomat en Tex- 
tomat Plus kunnen via het programma 
Converter worden omgezet naar StarTex- 
ter teksten. 

* De diskette waar StarTexter op staat is 


niet beveiligd, er kunnen dus ook kopiëen 
voor eigen gebruik worden gemaakt. Door 
het ontbreken van beveiligingen is het 
programma een stuk sneller gebleven. 

★ Overzichtsfunktie, door in de schrijfmo- 
dus op Commodore/shift te drukken wordt 
er een overzicht van het hele ’schrijfvel’ 
gegeven. 

Printen 

De StarTexter tekstverwerker is Vizawrite 
en Easyscript op het gebied van print¬ 
faciliteiten de baas. Zelfs eenvoudige prin¬ 
ters als de Commodore 803/801 (of com- 
patibles) kunnen de 6 extra lettersets en de 
10 zelf ontworpen tekens printen met de 
fontafdruk-funktie. De printer print dan 
precies wat er op het beeldscherm te zien 
is, hetgeen wel een tijdrovende aangele¬ 
genheid kan worden. Ook de betere paral¬ 
lel aangestuurde printers, die op de User- 
port worden aangesloten, kunnen worden 
aangestuurd en dan komen er naast de 6 
fonts en de 10 zelfontworpen tekens ook 
nog eens de mogelijkheden bij van die 
printer zelf. dat kunnen dan lettertypen als 
Pica, Elite, Italic, Underline etc. zijn. 

C-128 versie 

Die is er helaas nog niet, en men moet zich 
haasten want het aantal tekstpakketten 
voor de 128 neemt snel toe. Er komt 
binnenkort dus een C-128 versie op de 
markt, met dezelfde (goede) eigenschap¬ 
pen. De belangrijkste verschillen met het 
C-64 programma zijn de 80 tekens op een 
regel en het grotere geheugen. • 


Conclusie 

StarTexter 64 oogt goed en werkt zeer 
doeltreffend en degelijk. Toch zijn er 
wat nadelen. Deze nadelen liggen in de 
gebruiksvriendelijkheid voor de begin¬ 
ner. De startende tekstverwerker-ge- 
bruiker zal hier moeite hebben het over¬ 
zicht te behouden, omdat de tekstver¬ 
werker zoveel functies heeft. De meer 
ervaren gebruiker zal zich op dit pro- 
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Van Mare de Hingh wat goede raad 
voor wie veel listings overneemt. Het 
lijkt allemaal erg gemakkelijk, maar 
we weten hoeveel mensen er toch 
in vastlopen. Onze maadag-tele- 
foon staat vaak 




m __ 

1 * 1(11 






List 



A ls computer-hobbyist kom je er 
niet onderuit: programma’s 
overtypen uit computerbladen. 
Het is bijzonder leerzaam om te 
zien hoe mede-microbezitters 
programmeren en men kan eigen ken¬ 
nis verrijken met programmeertrucs 
van anderen. Voorwaarde is dan wel dat 
de afgedrukte listing goed wordt over¬ 
genomen en daar zit ’m nou net de grote 
moeilijkheid. 

Vaak zit men uren te zweten en te ploete¬ 
ren, om dan tot de ontdekking te komen 
dat de boel niet werkt, waarna men nog 
eens uren moet zoeken om de boel te 
controleren. En tenslotte werkt het pro¬ 
gramma dan, maar is de avond inmiddels 
om. Nergens voor nodig, want met wat 
goede wil en wat hulpmiddelen kan een 
listing overtypen een ontspannende en 
leerzame bezigheid worden. Gelukkig 
maakt uw favoriete Commodore-compu- 
terblad gebruik van checksum-controle 
getallen en dat is al de helft van het werk. 
Maar in dit artikel vindt u nog wat belang¬ 
rijke tips. 

Hoofdpijn 

Een veel voorkomende klacht bij en na 
langdurig achter de computer zitten is 
hoofdpijn. Vaak komt dit door slechte ver¬ 
lichting, bijv. van het toetsenbord. Zorg 
altijd dat het toetsenbord en ook het blad 
waaruit u de listing overneemt, ongeveer 
even helder zijn als de monitor, dan hoeven 
uw ogen zich niet telkens in te stellen. 
Hetzelfde geldt voor de afstand tussen 
ogen en monitor/tv, toetsenbord en blad. 
Als deze afstanden (ongeveer) gelijk zijn 
werkt het veel prettiger. 


Vind een goede plaats om het blad neer te 
leggen (voor, achter of naast toetsen¬ 
bord?) om ook de dreigende nekpijn door 
het heen-en-weer kijken te vermijden. 
Hoofdpijn kan ook veroorzaakt worden 
door de kleur van het beeld of door gepiep 
of gebrom van de monitor/tv. Als u geen 
monochrome monitor heeft, zet dan ten¬ 
minste het contrast wat lager en draai de 
kleur op zwart/wit of verander de scherm- 
kleuren. (Een donkere schermrand is rust¬ 
gevend voor de ogen). 

Even saven 

Zo scheelt het al heel wat, maar als men te 
lang achter elkaar bezig blijft, komen de 
druppeltjes op het voorhoofd toch te voor¬ 
schijn. Het is dan ook goed om geregeld 
even te pauzeren en dan is 'even saven’ 
tussendoor belangrijk voor het geval er 
toevallig (?) een stroomstoring optreedt of 
u straks een foutje maakt en het met veel 
zorg ingetypte programma verliest. Met 
regelmatig een ’backupje’ maken (profes¬ 
sionals hebben er een aparte diskette 
voor) is helemaal opnieuw beginnen niet 
nodig. Denk er dan ook om, nooit het 
ingetypte te testen (runnen) vóór het sa¬ 
ven. Als de computer dan vastloopt door 
een fout in het programma, is anders alles 
verloren. 

Schermkleur 

Omdat we u nu toch weer wat te doen 
willen geven, even een behulpzame listing. 
Onderstaand programma (C64) doet auto¬ 
matisch eens per half uur de schermkleur 
veranderen. De getallen tussen haakjes 
achter iedere regel zijn de checksumge- 
tallen. 


50 REM Halfuurklok (215) 

100 POKE 56580,255:POKE 56581,255 (9) 
110 POKE 56590,17 (52) 

120 POKE 56582,181 :POKE 56583,105 (5) 
130 POKE 56591,81 (54) 

140 POKE 56589,127 (110) 

150 FORI=53200 TO 53210: READ X (46) 
160 POKE l,X:NEXT (32) 

170 DATA 72,173,13,221,16,3,238 (191) 

180 DATA 32,208,104,64 (5) 

190 POKE 792,208:POKE 793,207 (56) 

200 POKE 56589,130 (104) 

210 PRINT”OK.” (165) 


Controle tekens 

Probeer altijd te begrijpen wat u intypt. Als 
u alles letter voor letter overtypt, komen er 
veel meer fouten dan wanneer men bij het 
invoeren begrijpt wat er gebeurt. Analy¬ 
seer eventueel het programma voor het 
overtypen, zodat de struktuur al een beetje 
bekend is. 


In Commodore Info worden in listings be¬ 
paalde controletekens geschreven als 
woorden tussen spekhaken, die dan ech¬ 
ter bij het overnemen van de listing weer 
vervangen moeten worden door de oor¬ 
spronkelijke toets(en). Vooral de kleur- 
commando’s zorgen hierbij voor moeilijk¬ 
heden, omdat deze niet allemaal op het 
toetsenbord aangegeven worden. Voor de 
duidelijkheid nog eens een overzichtje: 


ZWART 

WIT 

ROOD 

CYAAN 

PURPER 

GROEN 

BLAUW 


Ctrl + 1 (BLK) 
Ctrl + 2 (WHT) 
Ctrl + 3 (RED) 
Ctrl + 4 (CYN) 
Ctrl + 5(PUR) 
Ctrl + 6(GRN) 
Ctrl + 7 (BLU) 
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GEEL Ctrl + 8 (YEL) 

Oranje commodore +1 

Bruin commodore + 2 

L.Rood commodore + 3 

Grijs 1 commodore + 4 

Grijs 2 commodore + 5 

L.Groen commodore + 6 

L.BIauw commodore + 7 

Grijs 3 commodore + 8 


Minder goed is het bij Commodore Info is 
gesteld met het afdrukken van graphics. 
Vaak is niet duidelijk welk teken er bedoeld 
wordt. Merk op dat de listings zijn afge¬ 
drukt in de tekstmode (kleine letters- 
+ hoofdletters). Hierdoor kunnen er tekens 
zijn die er op het scherm anders uitzien 
dan op papier. Zo geeft shift+aapje op het 
scherm een soort L in spiegelbeeld, terwijl 
het in de listing is afgedrukt als een wortel- 
trekteken. Dit probleem wordt kleiner als u 
het scherm eveneens in de tekststand 
brengt met shift+commodore. Onnodig 
gezoek naar graphics tijdens het invoeren 
van een programma kan worden verhol¬ 
pen door van te voren de veel voorkomen¬ 
de tekens even op een kladblaadje te 
zetten met de bijbehorende toetsencombi¬ 
natie. 

Datafobie 

Als u bij voorbaat besluit een listing niet 
over te nemen omdat de helft ervan in 
beslag wordt genomen door dataregels, 
dan lijdt u aan data-angst. Terecht, want 
interessant zijn die regels machinetaal- en 
spritedata niet echt. Hier zijn nog wat tips 
om het lijden te verzachten. 

O Leg een papiertje onder de regel waar u 
bent zodat u niet na ieder getal moet 
zoeken waar u ook weer was. U kunt ook 
met een vinger aanwijzen waar u gebleven 
bent en met één hand typen. (Het zijn 
meestal toch alleen maar cijfers.) 

0 Probeer een vast ritme op te bouwen. 
Dat beperkt het aantal fouten sterk. Ach¬ 
tergrondmuziek kan hierbij helpen. 

0 Een veel gemaakte fout is een punt 
typen in plaats van een komma. Dat resul¬ 
teert dan in een out of data error. Als u 
deze vergissing vaak maakt, plak dan een 
plakkertje op de komma-toets. 

O Een tweede veel gemaakte fout: Als een 
dataregel zo is afgedrukt: 

1000 DATA 12,204,0,192,2 
52,169,255 

is men vaak geneigd een komma te typen 
achter de 2, terwijl er toch gewoon 252 
staat. Tip: geef van te voren aan (met 
potlood) waar iets dergelijks het geval is. 
@Roep de hulp in van een huisgenoot 
(nee, geen trouwe viervoeter) om de data 
voor te lezen. Dit kan wel ten koste van de 
snelheid gaan. (Ho! Wacht even! Wat was 
nou het eerste getal?). Ook eerst alle data 



inspreken op een bandje behoort tot de 
mogelijkheden. 

Checksum 

Bij het gebruikte checksum-systeem wor¬ 
den de ascii-codes van alle karakters van 
een regel van het programma bij elkaar 
opgeteld. Zo ontstaat dan een getal tussen 
0 en 255. Omdat 3+4 en 4+3 hetzelfde 
resultaat geeft, worden omdraaiingen van 
twee of meer tekens er niet uitgehaald. Typ 
daarom nooit te snel, want dan willen er 
nog wel eens omdraaiingen voorkomen en 
die komen er dus niet uit met de checsum- 
test. Spaties tellen niet mee voor het 
checksumprogramma. Let daarom ook 
goed op het aantal spaties. Teveel of te 
weinig spaties kunnen de schermopmaak 
bederven, hoewel de checksum geen fout 
aangeeft. Over het algemeen mogen spa¬ 
ties buiten aanhalingstekens echter wel 
naar believen weggelaten of toegevoegd 
worden omdat die verder geen funktie 
hebben. (Maar ze nemen wel geheugen¬ 
ruimte in.) 

Let op de volgende uitzondering: 
in gevallen als 100 Q=T AND(2 f I) moet 
wel degelijk de spatie tussen T en AND 
gehandhaafd blijven want anders ziet de 
commodore het als 100 Q=TAN D(2 f1) 
met een syntax error als gevolg. 

Zoals bekend hebben rem-regels (remark) 
geen enkele andere funktie dan uitleg over 
de werking van het programma. In principe 
hoeft u ze dus niet over te typen om het 
programma te laten werken. Maar u moet 
er dan wel voor oppassen dat er niet elders 
vanuit het programma naartoe wordt ge- 


GOTOd of geGOSUBd. Dan volgt namelijk 
een undef d statement error. 

Het veiligste is om bij een remregel een 
dubbele punt te typen om de betreffende 
regel ’bezet’ te houden. 

Dus 750 REM —INITIALISATIE— kan wor¬ 
den 750 : . 

Dat scheelt een hoop overbodig typwerk. 
Het verdient aanbeveling om in plaats van 
eerst het programma in te typen, te saven 
en vervolgens het checksumprogramma 
te laden, te runnen, het ingetypte program¬ 
ma opnieuw te laden en te testen op 
checksumgetallen, van te voren al "syntax 
checksum” te laden en te runnen, zodat 
men ook tussendoor de checksum van de 
tot dan toe ingevoerde regels kan toetsen. 
Het is tenslotten een stukje machinetaal, 
dat in het geheugen aanwezig blijft. Het is 
ook veel prettiger regelmatig de checksum 
te controleren dan e’e’n keer op het eind. 
Voor de liefhebbers geeft het volgend pro¬ 
gramma (C-64) een alternatief voor de 
gebruikelijke syntax checksum. Met deze 
utility verschijnt onmiddellijk na iedere in¬ 
gevoerde regel de bijbehorende check¬ 
sum op het scherm. Het werkt inderdaad 
heel geruststellend om direct te weten dat 
de regel goed ingetypt is. Een tip: schrijf de 
checksumgetallen in een afwijkende kleur 
achter elke regel van het programma. Dan 
hoeft u niet telkens heen en weer te kijken 
tussen programma en checksumlijst. Hier 
volgt het programma (de getallen tussen 
haakjes na iedere regel zijn de checksum¬ 


getallen). 

50 REM GEEFT CHECKSUM (77) 

60 REM NA IEDERE REGEL (59) 

100C=0:FOR l=53000T053125:READX 
(144) 

110 POKE l,X:C=C+X:NEXT (148) 

120IFC=15914THEN 150 (193) 

130 PRINT”DATAFOUT!” (86) 


140 PRINTTEST DE CHECKSUM!”:END 
( 212 ) 

150SYS58451 :POKE770,8:POKE771,207 
(173) 

160 PRINT’OK.” (165) 

200 DATA 160,0,177,209,201,35,240,11 
(171) 

210 DATA 201,32,208,90,200,177,209,196 
(30) 

220 DATA213,208,245,32,19,166,144,78 
(246) 

230 DATA32,204,255,173,134,2,72,169,1 
(25) 

240 DATA 141,134,2,169,35,32,210,255 
(179) 

250 DATA 166,20,165,21,32,205,189,169 
(243) 

260 DATA 58,32,210,255,160,4,169,0,133 
( 22 ) 

270 DATA2,177, 95, 240,12,201,32,240 5 

( 222 ) 

280 DATA 24,101,2,133,2,200,208,240 
169 (56) 
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290 DATA 0,166,2,32,205,189,104,141, 
134 (67) 

300 DATA2,169,32,32,210,255,165,211 
(178) 

310 DATA 197,213,208,245,169,13,32,210 
(31) 

320 DATA255,169,255,133,21,32,96,165 
(249) 

330 DATA 134,122,132,123,32,115,0,201 
(207) 

340 DATA 35,240,242,32,121,0,76,141, 
164 (64) 

Als het controlegetal van een regel niet 
klopt, maar er is echt geen fout te vinden in 
die regel, moet u letten op het volgende: 

Is nergens een spatie gebruikt in plaats 
van een shift-spatie of andersom? 

Moet ik misschien een ander grafisch te¬ 
ken gebruiken of moet dat minteken geen 
shift-sterretje zijn? 

Is die 1 geen L of 0 geen O? 

Als dit allemaal niet het geval is kan het een 
'misser’ zijn. In het volgende nummer vindt 
u dan een oplossing en anders biedt de 
listingservice telefoonlijn misschien uit¬ 
komst. 

Foutje 

Als alles dan is ingetypt, checkgesumd, 
verbeterd en gesaved kan het programma 


uiteindelijk worden getest. Meestal zal het 
dan goed werken, maar er kunnen toch 
nog een paar dingen mis gaan. Als voor¬ 
beeld noem ik een insteek- of uitbreidings- 
module, die roet in het eten kan gooien bij 
een gebruikte machinetaalroutine. De op¬ 
lossing is om voor het runnen een quit of 
kill commando te geven. 

Heel lastig is het feit, dat oudere versies 
van de C-64 soms een bepaald program¬ 
ma toch niet aan kunnen, dat is een oudere 
bug, die overigens software-matig te elimi¬ 
neren is. 

Verder kan er ondanks de checksumtest 
toch nog een foutje zijn blijven zitten. Dit 
zal dan meestal een omdraaiing zijn. Als er 
een foutmelding wordt gegeven kan men 
met wat kennis van Basic betrekkelijk ge¬ 
makkelijk de fout opsporen. Daarbij blijkt 
de regel, waar de foutmelding naar wijst, 
niet altijd de regel waarin de fout zit. Een 
typisch voorbeeld is de syntax error in een 
dataregel, die men krijgt, wanneer gepro¬ 
beerd wordt een string uit data in een 
numeriek variabele te lezen m.b.v. read. 
Het is ook mogelijk dat tijdens de uitvoer 
van het programma opeens het scherm 
leeg wordt met alleen ’ready’. (zoals na 
stop-restore). Dit wil zeggen dat er iets fout 
is met een machinetaalroutine. De fout 
moet gezocht worden in de dataset. 


Als er geen foutmelding gegeven wordt, 
maar er gebeurt gewoon niet, wat er zou 
moeten gebeuren zit er niets anders op 
dan heel het programma nog eens door te 
kijken en te vergelijken met de in het blad 
afgedrukte listing. Met een printer kan de 
foutieve versie uitgeprint worden om te 
vergelijken. 

Na een regel die precies een schermregel 
lang is, niet vergeten op return te drukken. 
De cursor staat al wel op het begin van de 
volgende schermregel, maar het ingetypte 
is nog niet verwerkt. De volgende pro¬ 
grammaregel wordt dan (foutief) aan de 
vorige vastgelijmd. 

De computer verwerkt nooit meer dan 
twee regels (80 karakters) tekst per regel. 
Als een ingetypte regel toch langer lijkt, wil 
dat zeggen dat de programmeur afkortin¬ 
gen heeft gebruikt, zoals ’?’ voor print en p 
shift-o voor poke. Dat scheelt dan wat 
tekentjes. Verder kosten spaties (buiten 
aanhalingstekens) ook ruimte, die gewon¬ 
nen kan worden. 

Gebruik geen shift-return i.p.v. return om 
de regel af te sluiten. Dan wordt het inge¬ 
voerde namelijk genegeerd. 

Veel plezier met de listings, 

Mare de Hingh 


Zenith monitoren. Een lust voor het oog. 




Uit het breedste PC assortiment ter wereld komen de beste monitoren. 
Zenith monitoren. Geschikt voor vrijwel alle personal computers. Kleur 
of monochroom (met groen of amberkleurig scherm). Haarscherpe beeld¬ 
kwaliteit. Moderne styling. Een lust voor het oog. Bovendien zijn Zenith 
monitoren prettig geprijsd. Bel Zenith voor het adres van de dichtstbijzijnde 
dealer. 


T£NITH 


data 

Systems 



Zenith Data Systems, Utrechtseweg 370,3731 GE De Bilt, tel. 030-765844. 
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In dit deel van onze cursus machinetaal behandelen we de 
manier waarop informatie in de computer wordt geordend. 
Daarna zullen we zien hoe deze elektrische informatie kan 
worden vertaald naar voor de mens bruikbare gegevens. We 
zuilen dan te maken krijgen met een belangrijk computertal- 
steisel: het tweetallige stelsel. Omdat die stap van elek¬ 
trische informatie naar getallen een erg belangrijke is zullen 
we dit artikel er helemaal aan besteden. 

CURSUS MACHINETAAL 


door Sjoerd Bakker 


Deel 2: 

Bits, bytes en het tweetallige stelsel 


LJ 


n et gaat dit keer om de manier 
waarop de computer intern aan 
het rekenen slaat en hoe we op 
de eenvoudigste manier zo met 
cijfers kunnen werken, dat de 
computer die begrijpt. Om de lo¬ 
gische lijn in deze cursus aan te 
geven, zullen we om te beginnen 
het voorafgaande deel nog kort 
samenvatten. 

In deel 1 zagen we dat een micro¬ 
processor niets anders is dan een 
hele grote verzameling 
open/dichtschakelaars. Met het 
schema van een lampjesschakeling 
lieten we zien hoe de processor 
met behulp van zes schakelaars de 
getallen 1-3 met 1-3 zou kunnen 
vermenigvuldigen. Daarna hadden 
we het over de transistor: de 
"computerschakelaar" die elektrisch 
open en dicht wordt gezet. De op¬ 
drachten voor het open en dicht 
zetten van de schakelaars, dus aan 
de microprocessor, zijn opgeslagen 
in het geheugen van de computer. 
Dat geheugen bestaat uit ruim 
65.000 zgn. geheugenplaatsen die 
elk een eigen nummer, oftewel 
adres, hebben. 

Zo’n geheugenplaats kan als in- 
houd (niet te verwarren met het 
adres) een waarde van 0-255 
hebben. 

We zagen dat de waarden 
beschouwd kunnen worden als op- 
dracht-codes voor de processor, 
maar ook als data-informatie bij een 
opdracht. Tenslotte gaven we met j 
een voorbeeldprogramma aan hoe I 


een aantal opeenvolgende op¬ 
drachten in de praktijk wordt uit¬ 
gevoerd. 

Sturing schakelaars 

De oplettende lezer zal in het 
bovenstaande verhaal een tegen¬ 
strijdigheid hebben ontdekt. Want: 
enerzijds zouden de geheugen¬ 
plaatsen open/dicht-informatie voor 
de ingangsschakelaars van de pro¬ 
cessor moeten bevatten, maar an¬ 
derzijds omschrijven we de inhoud 
ervan als "een waarde van 0-255". 
Hoe vallen deze verschillende be¬ 
naderingen voor een en dezelfde 
toestand met elkaar te rijmen? 
Daarvoor moeten we om te begin¬ 
nen weer even terug naar het 
"spanningsniveau" van de com¬ 
puter. 


ADRES INHOUD 

0 0-255 

0-255 

0-255 

0-255 

0-255 

0-255 

0-255 

65535 0-255 


ELKE GEHEUGENPLAATS HEEFT EEN NUMMER, 
OFTEWEL EEN ADRES. EEN GEHEUGENPLAATS 
BEVAT ALTIJD EEN WAARDE VAN 0-255 DIE 
DE INHOUD WORDT GENOEMD. DEZE WAARDES 
KUNNEN OP VEESCHILEENDE MANIEREN 
WORDEN BESCHOUWD. BIJ PROGRAMMEREN IN 
MACHINETAAL VORMEN ZE VAAK OPDEACHT- 
CODES VOOR DE MICROPROCESSOR. 


Laag en hoog 

In een vorig artikel zagen we dat 
een computer maar twee niveau’s 
van elektrische spanning kent. Het 


zijn het "lage" O-Volts niveau en het 
"hoge" 5-Volts niveau. Als er een 
schakelaar in de computer open 
staat zal de stroom zich niet kunnen 
bewegen van het "hoge" naar het 
"lage" spanningsniveau. Zetten we 
de schakelaar echter dicht, dan zal 
er 5 Volt op een lijn komen te staan 
en vloeit er stroom naar de aarde (0 
Volt). Het open en dicht zetten van 
de schakelaars gaat ook met behulp 
van deze twee spanningsniveau’s. 
Afhankelijk van de soort schakelaar 
maak je hem open door het "lage" 
of het "hoge" niveau op de 
"schakelknop" te zetten. Het andere 
niveau zorgt er dan voor dat de 
schakelaar dicht gaat. Over hoe het 
open en dicht zetten van de 
schakelaars precies in zijn werk 
gaat zullen we het verder niet 
hebben. Zoals eerder gezegd 
komen we dan op het gebied van 
de elektronika en dat onderwerp 
valt buiten het kader van dit blad. 

Bits en bytes 

Het is dus zo, dat de machine- 
taalopdrachten zich in de vorm van 
"lage" en "hoge" spanning in het 
geheugen van de computer bevin¬ 
den. Met andere woorden: het 
geheugen van de computer bestaat 
uit (zeer veel) kleine gebiedjes 
waarvan de elektrische spanning of 
"laag" of "hoog" is. Zo’n gebiedje 
noemen we een bit. Een bit is de 
kleinste informatieeenheid binnen 
de computer, en je kunt je hem het 
beste voorstellen als een micro 
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BITNUH11EK: 7 6 5 4 3 2 1 0 

ELEKTRISCHE 

TOESTAND: LHHLHLLH 


EEN BYTE HORDT GEVORMD DOOR S BITS. 
BITS ZIJN ZEEK KLEINE GEBIEDJES, 
WAARVAN DE ELEKTRISCHE SPANNING 
'LAAG OF ’HOOG’ IS. DE BITS VAN EEN 
AFZONDERLIJKE BYTE HEBBEN ELK EEN 
EIGEN jHT-NUHMEK. DE MEESTE BYTES 
ZIJN TEVENS GEHEUGENFLAATSEN, MAAR 
HET HOEFT NIET. 


scopisch dun en kort elektriciteits- 
draadje waar dan die "lage" of 
"hoge" spanning op staat. Als we 
echter zouden moeten werken met 
geheugenplaatsen die uit een 
enkele bit bestaan, zouden we niet 
veel kunnen beginnen. We zouden 
de processor dan maar twee ver¬ 
schillende opdrachten kunnen laten 
uitvoeren. Het "lage" span¬ 
ningsniveau symboliseert dan de 
ene opdracht en het "hoge" niveau 
de andere. Daarom bestaat een 
geheugenplaats niet uit een enkele, 
maar uit 8 bij elkaar horende bits. 
Een dergelijk groepje van 8 noe¬ 
men we ook wel een Byte. Een 
geheugenplaats bestaat dus uit 8 
gebiedjes waarvan de elektrische 
spanning "laag" of "hoog" is. 

Als we werken met de inhoud van 
een geheugenplaats houden we 
ons altijd bezig met de toestanden 
van die 8 bits tegelijk. Omdat we 
echter wel van elk afzonderlijk bit 
van een geheugenplaats de toe¬ 
stand willen kunnen weten, hebben 
ze ieder een eigen nummer. Die 
nummers lopen niet van 1-8, zoals 
je zou verwachten, maar van 0-7. 
Als we een byte tekenen zetten we 
de bits ervan meestal op een hori¬ 
zontale rij. De volgorde van links 
naar rechts wordt dan: bit 7, 6, 5, 4, 
3, 2, 1,0. 


De elektrische toestanden van 
alle bits samen kunnen een be¬ 
paalde opdracht vormen voor 
de microprocessor. 


In de tekening hebben we in de af¬ 
zonderlijke bits het elektrische 
spanningsniveau ervan 

aangegeven. De niveau’s van bits 7- 
0 zijn dus respektievelijk: laag, 
hoog, hoog, laag, hoog, laag, laag 
en hoog. Als de processor deze 
combinatie van spanningsniveau’s 
op de "schakelknoppen" van zijn 8 
ingangsschakelaars krijgt, zal hij de 
opdracht "optellen" gaan uitvoeren. 
Op dezelfde manier kunnen andere 
"laag"/ "hoog"combinaties weer de 
uitvoering van andere opdrachten 


tot gevolg hebben. Hoeveel combi¬ 
naties er in totaal mogelijk zijn 
zullen we zo zien. 


We kunnen dus zeggen dat het 
geheugen van de computer uit 
ruim 65.000 bytes bestaat, die 
elk een nummer van 0-ruim 
65.000 hebben. 


Dit nummer is het adres van de 
geheugenplaats, en het dient om al 
die verschillende geheugenplaat¬ 
sen uit elkaar te kunnen houden. 
Een enkele geheugenplaats bestaat 
weer uit 8 verschillende bits, een 
byte, die genummerd zijn van 0-7. 
De elektrische spanning van een bit 
is altijd "laag" (0 Volt) of "hoog" (5 
Volt). De toestanden van alle bits 
samen vor men de inhoud van de 
geheugen plaats. En over die in¬ 
houd gaan we het nu in het bijzon¬ 
der hebben. 


GEWICHT: 100 10 1 

CIJFER : 876 



876 


HET TIENTALLIGE STELSEL WEEKT HET DE 
CIJFERS 0-9 EN EEN ONBEPERKT AANTAL 
CIJFERPLAATSEN. ELKE CIJFERPLAATS 
HEEFT EEN EIGEN 'GEWICHT’. VAN RECHTS 
NAAR LINKS ZIJN DIE GEWICHTEN: 1, 10, 

10* 10, 10*10*10, 10*10*10*10 ETC. OM 

ONS DE GROOTTE VAN EEN TIENTALLIG 
GETAL VOOR TE KUNNEN STELLEN, MOETEN 
WE DE AFZONDERLIJKE CIJFERS MET HET 
BIJBEHORENDE GEWICHT VERMENIGVULDIGEN 
EN VERVOLGENS AL DEZE UITKOMSTEN BIJ 
ELKAAR OPTELLEN. 


Spanningen en getallen 

In principe is er niets op tegen om 
de inhoud van een geheugenplaats 
aan te duiden met: bit 7 is "laag", bit 
6 is "hoog", bit 5 is "hoog" etc. We 
bekijken de computer dan vanaf het 
elektriciteitsniveau, waarop hij in 
feite funktioneert. Zo’n twintig jaar 
geleden was het heel normaal dat 
programma’s werden geschreven 
door het omzetten van schakelaars, 
waarmee je dan de bits van een 
geheugenplaats met de hand een 
voor een "laag" of "hoog" maakte. 
De "laag"/ "hoog"manier van 
voorstellen heeft echter twee 
nadelen. Ten eerste hebben we dus 
de zojuist genoemde omslachtig¬ 
heid. Het zou natuurlijk veel handi¬ 
ger zijn als je de inhoud van een 
geheugenplaats korter kon om¬ 
schrijven, en je dus alle bits in een 
keer kon veranderen. 

Rekenmethode 

Het tweede nadeel is van veel ern¬ 


stiger aard. Zoals het er nu uitziet 
zijn we niet in staat om met de in- 
houden van geheugenplaatsen te 
rekenen. Een inhoud die "laag", 
"hoog", "hoog", etc. is, valt natuur¬ 
lijk geen getal te noemen. Hoe 
zouden we in vredesnaam twee van 
die inhouden bij elkaar op moeten v 
tellen? En stel dat het ons lukt: wat 
moeten we aan met een resultaat 
van 8 "laag"/ "hoog"waardes? 
Welke getallen hebben we dan bij 
elkaar opgeteld, en wat is het re¬ 
sultaat? Om met dit laatste pro¬ 
bleem te beginnen: om te kunnen 
rekenen met de inhouden van 
geheugenplaatsen blijkt het 
noodzakelijk te zijn om die in¬ 
houden op een bepaalde manier 
overeen te laten komen met 
getallen. Dit kunnen we het beste 
doen door alle mogelijke 
"laag"/"hoog"combinaties van de 8 
bits systematisch te rangschikken. 
De eerste combinatie in de rij laten 
we dan het getal 0 voorstellen; de 
tweede combinatie wordt het getal 
1, en zo gaat het door tot we alle 
mogelijke "laag"/"hoog"combinaties 
hebben gehad. Het voordeel van 
zo’n systematische rangschikking 
is, dat we de elektrische toestanden 
heel gemakkelijk kunnen "vertalen" 
naar getallen en omgekeerd. Maar 
welk systeem moeten we 
toepassen bij het ordenen van de 
mogelijke combinaties? Om hier 
achter te komen moeten we eerst 
het talstelsel dat we dagelijks ge¬ 
bruiken eens nader gaan bekijken. 

Het tientallige stelsel 

Voor we verder gaan spreken we af 
dat "geschreven getallen" in het 
vervolg bepaalde aantallen 
voorstellen, en dat cijfers die aan¬ 
tallen in verschillende talstelsels 
kunnen symboliseren. 

Een voorbeeld: het getal honderd 
kan de hoeveelheid honderd appels 
aanduiden. In het tientallige stelsel 
wordt deze hoeveelheid cijfermatig 
uitgedrukt door het getal 100. Het 
tientallige, ofwel decimale talstelsel 
waar wij mee bekend zijn kent tien 
getallen om hoeveelheden mee 
voor te stellen. Met andere woor¬ 
den: de cijfers 0-9 symboliseren de 
aantallen nul-negen. Verder kent 
het stelsel een onbeperkt aantal cij¬ 
ferplaatsen, die elk een bepaald 
gewicht vertegenwoordigen. 

Een voorbeeld: het getal 876 kan 
een aantal appels symboliseren. 
Om ons dit aantal voor te kunnen 
stellen moeten we 6 keer een 
enkele appel voor ons zien, met 
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daarnaast 7 keer 10 appels en daar 
weer naast 8 keer 100 appels. De 
waardes 1, 10, en 100 vormen dan 
de gewichten van de achtereenvol¬ 
gende cijferplaatsen. Het cijfer op 
een bepaalde cijferplaats geeft aan 
met hoeveel het gewicht moet wor¬ 
den vermenigvuldigd. 

Werking 

De werking van het stelsel is heel 
simpel. De aantallen nul-negen 
worden weergegeven met de cijfers 
0-9. Dan hebben we alle beschik¬ 
bare cijfers gehad en roepen we 
voor de hoeveelheid tien de hulp in 
van een tweede cijferplaats, waar 
we een 1 in zetten. De rechter cij¬ 
ferplaats "springt weer op 0". Ver¬ 
volgens laten we de linker 1 staan 
en beginnen we rechts weer te 
tellen van 1-9 voor de hoeveelhe¬ 
den elf-negentien. Dan springt de 
linker cijferplaats van 1 naar 2, en zo 
gaat het door tot we bij de negen- 
en-negentig (!) komen. Nu zijn ook 
twee cijferplaatsen niet genoeg om 
het volgende aantal, honderd, weer 
te geven en nemen we er links een 
derde bij waar we een 1 neerzetten. 
De andere twee "springeff weer op 
0". Zoals je ziet is het principe heel 
eenvoudig, maar het is nuttig om er 
even bij stil te staan. Wij zijn zo zeer 
aan ons eigen talstelsel gewend dat 
we ons er nauwelijks meer bewust 
van zijn dat het werkt zoals hier¬ 
boven beschreven. Daardoor kun¬ 
nen we ons ook nauwelijks 
voorstellen dat het net zo goed mo¬ 
gelijk is om hoeveelheden weer te 
geven in een ander stelsel dan het 
tientallige. 

Het tweetallige stelsel 

Het is eigenlijk een heel kleine stap 
van de "laag"/"hoog"combinaties 
die de 8 bits van een byte vormen 
naar het tweetallige stelsel. Immers, 
een bit is een informatie-eenheid | 
waarmee een onderscheid 
valt te maken tussen twee 
verschillende toestanden. 

Het enige verschil met 
een cijferplaats in het tien¬ 
tallige stelsel is dat daar¬ 
mee een onderscheid valt 
te maken tussen tien ver¬ 
schillende toestanden. 

Ook zijn "laag" en "hoog" 
natuurlijk geen cijfers, 
maar daar valt wel wat op 
te vinden. Het is in de po¬ 
sitieve computerlogica de 
gewoonte om de "lage" 
spanning van een bit voor 
te stellen met het cijfer 0, 


GEWICHT: 
128 64 32 
CIJFER : 

0 1 1 


@ 0 1 


LL 


1 = 
2 = 
4= 
8 = 
16= 


16 

- 1* 32= 32 
1* 64= 64 
, 0*128= 0 

105 


HET TWEETALLIGE STELSEL WERKT HET DE 
CIJFERS 0-1 EN EEN ONBEPERKT AANTAL 
CIJFERPLAATSEN. (EEN BYTE HEEFT ER 
ECHTER 8). ELKE CIJFERPLAATS HEEFT 
EEN EIGEN GEWICHT. VAN RECHTS NAAR 
LINKS ZIJN DIE GEWICHTEN: 1, 2, 2*2, 
2*2*2, 2*2*2*2 ETC. OM ONS DE GROOTTE 
VAN EEN TWEETALLIG GETAL VOOR TE 
KUNNEN STELLEN MOETEN WE DE GEWICHTEN 
VAN DE CIJFERPLAATSEN WAAR EEN 1 
STAAT BIJ ELKAAR OPTELLEN. 


en de "hoge" spanning met het cij¬ 
fer 1. Ziedaar de twee cijfers 0 en 1, 
waarmee we een tweetallig, oftewel 
binair, talstelsel kunnen gaan vor¬ 
men. En omdat een byte uit 8 bits 
bestaat hebben we dus de 
beschikking over 8 cijferplaatsen. 
Omdat de bits van een byte altijd 
een bepaalde elektrische spanning 
hebben zullen we, in tegenstelling 
tot het tientallige stelsel, altijd van 
alle 8 tweetallige cijferplaatsen het 
cijfer vermelden; ook als we links 
een aantal opeenvolgende 0- 
waardes hebben. Het getal 1001 
schrijven we dus bijvoorbeeld als 
00001001. Laten we nu eens gaan 
kijken hoe het tweetallige stelsel 
werkt. Met het cijfer 00000000 
geven we natuurlijk de hoeveelheid 
nul weer; dat spreekt voor zich. Ook 
de hoeveelheid een geeft weinig 
problemen. Deze wordt aangeduid 
met het getal 00000001. Nu zijn we 
door al onze cijfers heen en moeten 
we er dus een cijferplaats bij ne¬ 
men. Net als in het tientallige stelsel 
maken we de eerstvolgende cijfer¬ 
plaats 1, en de rechtse "springt 
weer op 0". De hoeveelheid twee 
geven we dan weer met het getal 


HOEVEELHEID 


NUL 

EEN 

TWEE 

DRIE 

VIER 

VIJF 

ZES 

ZEVEN 

ACHT 

NEGEN 

TIEN 

ELF 

TWAALF 

DERTIEN 

VEERTIEN 

VIJFTIEN 


TWEETALLIG 


128 64 32 16 
0 0 0 0 
0 0 0 
0 0 0 


0 


0 0 
0 0 
0 0 
0 0 


0 0 0 0 1 


4 
0 
0 
0 
0 
1 
1 
1 
1 

1 0 
1 0 
0 


TIENTALLIG 




00000010. De volgende hoeveel¬ 
heid, drie, krijgen we door de meest 
rechtse cijferplaats met 1 te ver¬ 
hogen, zodat drie wordt voorgesteld 
door 00000011. Nu zitten de tot 
dusver gebruikte twee cijferplaatsen 
alweer vol, en moeten we er op¬ 
nieuw een bij nemen. Vier schrijven 
we dan als 00000100. Voor de hoe¬ 
veelheid vijf beginnen we weer 
rechts met tellen en we krijgen 
00000101. Zes wordt vervolgens 
00000110 en zeven 00000111. We 
zitten nu weer vol, zodat de hoe¬ 
veelheid acht wordt voorgesteld 
met 00001000. 

Bijgaand overzicht geeft voor de 
hoeveelheden nul-vijftien de twee¬ 
tallige en vervolgens de tientallige 
schrijfwijze. De vier meest rechtse 
bits zitten dan vol. Kijk er maar eens 
rustig naar, en let ook op de 
gewichten van de cijferplaatsen die 
in het tientallige stelsel worden 
voorgesteld. In het tientallige stelsel 
zelf waren die gewichten van rechts 
naar links: 

1 , 10 , 10 * 10 , 10 * 10 * 10 , 10 * 10 * 10*10 

en in het tweetallige stelsel zijn ze: 

1,2, 2*2, 2*2*2, 2*2*2*2 etc. 

We zien verder dat je met een halve 
byte (4 bits) 16 verschillende hoe¬ 
veelheden weer kunt geven. Het 
totaal aantal mogelijke combinaties 
voor een hele byte is dus gelijk aan 
(16*16=) 256. Vandaar dat het mo¬ 
gelijk is om de inhoud van een 
geheugenplaats zowel in termen 
van "lage" en hoge" spanningen 
aan te duiden, als met een tweetal¬ 
lig (00000000-11111111) of een 
tientallig (0-255) getal, in het vol¬ 
gende deel van deze cursus zullen 
we zien dat de inhoud van een 
geheugenplaats meestal wordt 
aangeduid in nog een ander tal¬ 
stelsel: het zestientallige of hexa- 
decimale. 


Aan het eigenlijke program¬ 
meren zijn we nog niet of 
nauwelijks toegekomen. We 
vinden het echter beter om je 
eerst de noodzakelijke basis¬ 
informatie te geven, dan om 
meteen met flitsende listings 
te gaan gooien waarvan je 
toch niet weet hoe ze werken. 
Er heeft in Commodore Info 
tenslotte al een eerdere cur¬ 
sus gestaan, die wat dieper 
inging op het programmeren 
in machinetaal. ■ 
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De beginnende programmeur kan met hulp van deze serie artikelen leren hoe leuk het 
is om zelf méér te doen met de Commodore, dan alleen het spelen van voorgekookte 
spelletjes en het gebruiken van andere gekochte software-applicaties. Stap voor stap 
worden in deze cursus door Jan Bodzinga de elementaire feiten van Basic behandeld. 
De stof is daarbij bewust eenvoudig gehouden, zodat ook de volslagen ’leek’ op dit 
gebied erdoor kan uitgroeien tot een redelijk programmeur. Maar ook de meer 
gevorderde ’Basiccer’ zal ongetwijfeld nog wel dingen tegenkomen, waarmee zijn 
kennis kan worden aangevuld. 


Basis Basic 


Deel 10 

Sorteren & Arrays (II) 

I n het vorige artikel zijn we begonnen met een heel nieuw type Basic- 
variabele waar we het nog niet eerder over hebben gehad, de ARRAY. We 
hebben daarbij kennis gemaakt met de mogelijkheden die array-variabe- 
len bieden, om veel - min of meer gelijke gegevens - op een korte en snelle 
manier in een programma te verwerken. Daarbij gaat het niet alleen om 
numerieke gegevens, zoals functies, formules en getallen, maar we kunnen 
met hulp van een stringarray ook alfanumerieke gegevens op die manier 
verwerken. En vooral deze laatste optie geeft ons, samen met de computer, 
de mogelijkheid om namen, adressen en andere (persoons)gegevens, 
kortom alle alfanumerieke gegevens op een bijna professionele manier te 
verwerken. Maar eerst zullen we moeten weten hoe we te werk moeten gaan 
om reeksen getallen naar grootte te rangschikken. 


De variabele-soort ’ARRAY’ is op zich niet 
zo ingewikkeld. Als we ervan uitgaan, dat 
ieder onderdeel van de array zijn eigen, 
specifieke waarde kan krijgen in een pro¬ 
gramma, kunnen we iedere index een 
aparte variabele-naam toekennen, waar¬ 
door we weliswaar een veel langer, maar 
misschien beter te begrijpen, programma 
hebben. In aflevering 9 zijn we van het 
omgekeerde uitgegaan. Om de zaak nog 
even op te halen, drukken we hier een deel 
van de listing af van de vorige keer, waarbij 
de ’array’ als variabele zijn intrede deed: 

10 REM GEMIDDELDE 2 
20 REM Berekenen gemiddelde van 7 
getallen 

30 REM GEBRUIK ARRAY A() 

50 1 = 0 : REM TELLER 

60 DIM A(7) : REM ARRAY DEFINITIE 

70 Tl =0 : REM TOTAAL 

80 RES=0 : REM RESULTAAT 

100 REM BEGIN PROGRAMMA 

110 FOR I = 1 TO 7 

120 READ A(l) 

130 Tl = Tl + A(l) 

140 NEXT I 
210 RES = Tl / 7 

220 PRINT "GEMIDDELDE =”; RES 
230 END 

300 DATA 445,14,54,6633,234,66,1465 


Zoals iedereen kan zien, al is het maar aan 
de REM-regels, wordt er in dit programma 
een gemiddelde berekend van 7 getallen. 
De getallen worden stuk voor stuk ingeie- 
zen in een variabele die hoort bij de array 
A(). De index van deze numerieke array 
wordt daarbij aangegeven door de waarde 
van I uit de loop van regel 110 tot 140. 
Daarnaast wordt ook het totaalaantal op¬ 
geteld in variabele Tl. Dit laatste is mede 
reden van herplaatsing van deze listing, 
want tot mijn schande moet ik bekennen, 
dat ik me in les 9 door het Commodore 
Basic dialect te pakken heb laten nemen. 
In de vorige aflevering stond de variabele 
TOT in plaats van Tl. Terwijl ik al zo vaak 
iedereen ervoor heb gewaarschuwd, dat in 
namen van variabelen bij Commodore 
nooit onderdelen van Basic-opdrachten 
mogen zitten, heb ik me er zelf in laten 
lopen, doordat in TOT het Basicwoord TO 
voorkomt. Het probleem is, dat in de 
meeste andere Basic-vormen deze naam¬ 
geving volkomen legaal is. Desondanks 
sorry voor de fout. 

De array-waarden 

Hoewel in bovenstaande listing het gemid¬ 
delde (RES) perfect berekend wordt, is de 
ARRAY A() in feite nog niet nodig. We 
zouden voor het lezen (READ) een gewone 



numerieke variabele kunnen gebruiken, 
die dan bij Tl wordt opgeteld en meteen 
weer wordt gebruikt voor het volgende 
getal in de loop. Maar als we dat doen, zijn 
we wel meteen de afzonderlijke waarden 
van de 7 getallen kwijt en daar willen we 
nog wat mee doen, om de uitkomst te 
kunnen controleren. 

Als eerste voegen we de volgende regels 
aan de listing toe: 

230 PRINT : PRINT "WAARDEN : ” 

240 FOR I = 0 to 7 
250 PRINT I, A(l) 

260 NEXT 
299 END 

Als we nu het programma weer runnen, 
zullen we niet alleen de uitkomst (RES) op 
het scherm zien, maar daarnaast ook de 
afzonderlijke waarden van de zeven ge¬ 
tallen. 

Het ziet er dan ongeveer zo uit op het 
scherm: 

GEMIDDELDE = 1273 
WAARDEN: 

0 0 

1 445 

2 14 

3 54 
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4 6633 

5 234 

6 66 

7 1465 

We zien hier zowel de waarde van de 
loopvariabele, met daarachter de waarde 
van A(l), de array met index I. Hieraan is 
duidelijk te zien, dat de getallenreeks uit de 
DATA van regel 300 netjes vanaf A(1) is 
ingelezen, tot het laatste getal dat via 
READ in A(7) is terecht gekomen. De array- 
variabele A(0) heeft als waarde 0, omdat hij 
niet is meegenomen bij de READ-op- 
dracht. 

We zien dus, dat de waarden van de 
getallen nog steeds aanwezig is in het 
computergeheugen. Dat betekent, dat we 
ook nog van alles kunnen doen met deze 
waarden. Een voor de hand liggende mo¬ 
gelijkheid is het rangschikken op grootte 
van deze 7 getallen. Dit sorteren heeft een 
aparte en belangrijke plaats bij het pro¬ 
grammeren, omdat hiermee de computer 
pas efficiënt gebruikt gaat worden. 

Sorteren 

Het rangschikken of sorteren van getallen 
en alfanumerieke gegevens is één van de 
taken waarvoor de computer een prima 
hulpmiddel is. Bij ons voorbeeld van 7 
getallen zullen we de sortering waarschijn¬ 
lijk net zo snel handmatig kunnen uitvoe¬ 
ren, anders wordt het echter als we een 
groot aantal getallen willen gaan rang¬ 
schikken. Voor het sorteerprincipe maakt 
het echter niets uit, hoeveel getallen er 
moeten worden gerangschikt, mits er op 
zijn minst twee getallen zijn. 

Er bestaat een scala van diverse algorit¬ 
mes om te sorteren. En om eerlijk te zijn is 
Basic nu niet bepaald de meest voor de 
hand liggende computertaal om mee te 
gaan sorteren, maar wel de taal die de 
sorteerphncipes het eenvoudigst kan 
voorstellen. De eenvoudigste (en lang¬ 
zaamste) methode van sorteren die we 
hier zullen behandelen is de Verwissel 
methode. In het engels heet dit de ’Ex- 
change-sort’. Deze manier is gemakkelijk 
te programmeren en nog goed te begrij¬ 
pen. Daarnaast kennen we bv. nog de 
’Bubble-sort’, de Tournament-sort’, 
’Shell-Metzner’ en de 'binaire methode’. 
Uiteindelijk komt het er bij alle manieren op 
neer, dat de gegevens netjes worden ge¬ 
rangschikt van laag naar hoog of omge¬ 
keerd. Het ligt aan het geduld van de 
programmeur en de gebruiker welke me¬ 
thode de voorkeur verdient, terwijl ook de 
wijze waarop de gegevens in de computer 
zitten belangrijk is bij de keuze van de 
methode. 

Verwisselen 

Om het sorteren te kunnen illustreren gaan | 


we weer uit van de basis van ons vorige 
programma. We nemen de getallen en het 
inlezen van gegevens met kleine wijzigin¬ 
gen over: 

10 REM VERWISSEL-SORT 
20 REM Rangschikken van 7 getallen 
30 REM MET HULP VAN ARRAY A() 

401=0 : REM LUSTELLER 

50 J=0 : REM LUSTELLER 

60 DIM A(7) : REM ARRAY DEFINITIE 

100 REM BEGIN PROGRAMMA 

110 FOR I = 1 TO 7 

120 READ A(l) 

130 NEXT I 

500 DATA 445,14,54,6633,234,66,1465 
590 END 

We kunnen dit stuk programma als basis 
gebruiken voor alle sorteermethodes. 
Voor de algoritme van de Verwissel-me- 
thode voegen we de volgende regels aan 
het programma toe: 

200 REM SORTEERROUTINE 

210 FOR I = 1 TO 6 

220 FOR J = 1 + 1 TO 7 

230 IF A(l) > A(J) THEN GOSUB 600 

240 NEXT J 

250 NEXT I 


600 REM VERWISSELEN 
610 TP=0: REM OPSLAG 
620 TP=A(I) 

630 A(I)=A(J) 

640 A(J)=TP 
650 RETURN 

De routine om het sorteren uit te voeren 
vinden we in de regels 200 tot 250. Daar 
zien we, dat deze methode gebruik maakt 
van een dubbele loop met I en J als 
variabelen. Als we goed kijken zien we, dat 
sorteren in feite niets anders is, dan het 
vergelijken van twee getallen uit de reeks. 
Is getal 1 kleiner (of gelijk) aan getal twee, 
dan gebeurt er niets en blijven ze op hun 
eigen plaats in de array staan. Is het eerste 
getal groter dan het tweede, dan wordt via 
de subroutine uit regel 600-650 ervoor 
gezorgd dat de waarde van de twee getal¬ 
len van plaats in de array wordt verwisseld. 

Structuur 

De gevorderde programmeur zal direct 
zien, dat deze manier van wisselen in een 
subroutine het geheel nog meer vertraagt, 
zeker omdat de opdrachten van 600 tot 
640 zondermeer passen na de IF..THEN 
test van regel 230. Voor de duidelijkheid is 
de structuur van dit programma echter 
met een subroutine opgezet. 

Bekijk eerst de verwisselroutine eens, om¬ 
dat daarin de echte truc schuilt van het 
sorteren. Andere dialecten kennen Basic- 
opdrachten als SWAP A(I),A(J) etcetera, 


waarbij hetzelfde gebeurt, maar voor de 
Commodore moeten we als programmeur 
het wisselen zelf schrijven. Bij entree in de 
subroutine hebben we twee waarden in de 
array AO met respectievelijk index I en J. 
Deze beide moeten worden omgedraaid, 
waarna het programma via RETURN wordt 
vervolgd. Dit omdraaien gebeurt op de 
enig mogelijke (omslachtige) manier. Stel 
dat we in A(l) een waarde hebben van 8 
terwijl in A(J) de waarde 3 zit. 

Laten we het wisselen volgen met deze 
twee getallen. Om dit goed te laten lopen 
hebben we een extra variabele nodig, die 
als tijdelijke opslag fungeert. Het stuivertje 
wisselen gaat dan ook zo: 

regel 610 : TP=0 : A(l)=8 : A(J)=3 
regel 620 : TP=8 : A(l)=8 : A(J)=3 
regel 630 : TP=8 : A(l)=3 : A(J)=3 
regel 640 : TP=8 : A(l)=3 : A(J)=8 
Je ziet dat er zondermeer een extra varia¬ 
bele nodig is, om het verwisselen van 
waarden tussen twee variabelen te kunnen 
laten gebeuren. 

Sorteerlussen 

Om het rangschikken te bewerken maakt 
deze methode gebruik van twee Basic- 
lussen (loops). Het principe komt erop 
neer, dat er telkens in de eerste lus (I) een 
waarde wordt genomen, die vervolgens in 
de tweede lus (J) wordt vergeleken met alle 
waarden van de array die een hogere index 
hebben. Vandaar ook de afwijkende start 
en eindwaarden van de lusvariabelen. Om 
het proces in zijn geheel te kunnen volgen 
zullen we het sorteerprogramma wat moe¬ 
ten uitbreiden. Daarbij zullen we ook de 
officiële syntax van de verwisselsort in het 
programma zetten in plaats van de regels 
200 - 250. Daardoor is het programma 
universeel en kan voor het sorteren van N- 
waarden worden gebruikt. 

10 REM SORTEERROUTINE 
20 REM Rangschikken van N getallen 
30 REM MET HULP VAN ARRAY A() 

40 1=0 : REM LUSTELLER 

50 J=0 : REM LUSTELLER 

60 N=7 : RAM AANTAL TE SORTEREN 

70 DIM A(N) : REM ARRAY DEFINITIE 

100 REM BEGIN PROGRAMMA 

110 FOR I = 1 TO N 

120 READ A(l) 

130 NEXT I 

200 REM VERWISSEL-SORT 

210 FOR I = 1 TO N-1 

220 FOR J = 1 + 1 TO N 

230 IF A(l) > A(J) THEN GOSUB 600 

240 NEXT J 

250 NEXT I 

500 DATA 445,14,54,6633,234,66,1465 

599 END 

600 REM VERWISSELEN 
610 TP=0: REM OPSLAG 
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615 GOSUB 700 
620 TP=A(I) 

630 A(I)=A(J) 

640 A(J)=TP 
645 GOSUB 700 
650 RETURN 

700 REM STATE OF SORT 
710 PRINT ”l=”l,” J=”J, 

720 FOR K = 1 TO N : PRINT A(K);: NEXT 
730 PRINT 
740 RETURN 

Er is nogal wat veranderd aan de listing. De 
sorteerroutine heeft nu de variabele N als 
aantal, waarbij ook duidelijk wordt, dat lus I 
loopt tot het voorlaatste getal in de reeks 
(N-1), terwijl lus J steeds begint bij de 
waarde die één hoger ligt dan de array- 
waarde die op dat in lus I aan de beurt is 
(1 + 1 ). 

Om op het scherm te kunnen volgen wat er 
gebeurt tijdens het doorlopen van de lus- 
sen hebben we een aparte routine ge¬ 
schreven (700-740) die de status weer¬ 
geeft van alle getallen in de array A(). Deze 
routine wordt steeds vlak voor en na iedere 


wissel aangeroepen, waarbij de waarden drukt om het verloop te illustreren, 
van de lusvariabelen I en J worden afge- Tijdens het runnen krijgen we het volgen¬ 
de: 


1- 1 

J= 2 

445 

14 

54 

6633 

234 

66 

1465 

1= 1 

J= 2 

14 

445 

54 

6633 

234 

66 

1465 

1= 2 

J= 3 

14 

445 

54 

6633 

234 

66 

1465 

1= 2 

J= 

3 

14 

54 

445 

6633 

234 

66 

1465 

1= 3 

J= 5 

14 

54 

445 

6633 

234 

66 

1465 

1= 3 

J= 5 

14 

54 

234 

6633 

445 

66 

1465 

1= 3 

J= 6 

14 

54 

234 

6633 

445 

66 

1465 

1= 3 

J= 6 

14 

54 

66 

6633 

445 

234 

1465 

1= 4 

J= 5 

14 

54 

66 

6633 

445 

234 

1465 

1 4 

J= 5 

14 

54 

66 

445 

6633 

234 

1465 

1= 4 

J= 6 

14 

54 

66 

445 

6633 

234 

1465 

1= 4 

J= 

6 

14 

54 

66 

234 

6633 

445 

1465 

1= 5 

J= 6 

14 

54 

66 

234 

6633 

445 

1465 

1= 5 

J= 6 

14 

54 

66 

234 

445 

6633 

1465 

1= 6 

J= 7 

14 

54 

66 

234 

445 

6633 

1465 

1= 6 

J= 7 

14 

54 

66 

234 

445 

1465 

6633 




\Beter dan lcepick: cartrid Se v <>or elke krakeij 

I * Freezen en saven naar disk! * Maakt eendelige prg's! 

* Verkleint pgr's! * Waanzinnig goede monitor! 

* Terug laden mogelijk zonder Expert!* IncL software! 

* Stop je spel, pas het aan en speel het verder 


* Aan te passen naar eigen voorkeur 


— 




snelheid 

Pakketten 

64 

128** 

load 


save 



6-10 

1-2 

Speeddos 

139,— 

139,— 

6-10 

1-2 

*Speeddos 





Plus 

199,— 

229,— 

35-45 

8-9 

* Speeddos 





Prof. 

299,— 

329,— 


29,-!! 



Professional Dos: 

IncL Professional Utility Disk 
* 35-45 x sneller laden * 35-40 TLacks 

'Uitbreiding voor Speeddos (Plus). 

Superbase, EasyScript, Multiplan etc. en files 
worden met Professional Dos echt snel geladen | 
en gesaved. 


Van f 249,— voor 


f 199,-! !| 


* incl. 32 K prg combinatie 


1 ** in 64 mode + 1541 

- Tape/Diskturbo 

69,— 

- Centronics Kabel 

49,— 

- Sp. Tussenkabel 8-9!!! 

32,— 

- Speeddos Update 

99,— 

32 k prg-combi, 35x sneller laden 


- Digitale copybox 

59,— 

copiëren van cassettes 100% safe 


- 40/80 Display 128 

39,— 

80 koloms op uw monitor 


- I/O Switch Unit 

89,— 


16 Kanaak besturingssysteem 


- Universal Cartr. 8K 89,- 

backup naar cartridgeü! 

- Universal Cartr. 2*8k 129,- 

idem, met groter geheugen! 

- Speeddos 2e Diskdrive 99,— 

makkelijk te (ont-)koppelen 

- Userpoortuitbreiding *89,— 

voor Centronics printer + sp drive 

- Userpoortuitbreiding *109,— 

inclusief Centronics kabel! 

Cartridgepoortuitbr. 129,— 

4 slots voor div. cartridges 

schakelt Power-Cartridge hardwarematig uit! 

geen schakelaars! volautomatisch! I 


Dealer aanvragen welkom. 

C&K producten zijn verkrijgbaar 
bij de betere computerdealers of bij 
ons per post bestelbaar. ^ 
Maak het juiste bedrag 
met vermelding van 
gewenste product(en) 



35 





Aan de waarden van I kunnen we nu pre¬ 
cies aflezen waar en hoe de wissels tijdens 
het sorteren hebben plaatsgevonden. Wat 
direct opvalt is, dat er in alle gevallen 
tijdens het doorlopen van de buitenste lus 
(I) minstens 1 keer een wissel plaats vindt. 
Zou er daar niet gewisseld hoeven worden, 
omdat het bijvoorbeeld een gesorteerde 
reeks getallen betreft, dan toch zal het 
sorteren even lang duren. In een paar 
gevallen komen er in dit voorbeeld zelfs 
meer dan één wissel voor. 

Wisselen 

De eerste wissel vinden we als I = 1 en J=2. 
De te vergelijken variabelen zijn dan A(1) 
en A(2) met inhoud 445 en 14. Dit klopt 
uiteraard, want 445 is groter dan 14 daar¬ 
om vindt de wissel plaats. De rest van deze 
loop gebeurt er niets meer, omdat nu 14 in 
A(l) is gekomen en 14 is het kleinste getal 
uit de reeks. 

Bij de tweede ronde wordt 445 gewisseld 
met 54. De derde gang wijkt af van de 
vorige, omdat er daar meer wissels plaats¬ 
vinden. De lus begint met in A(l) de waarde 
445. Deze wordt eerst vergeleken met A(4) 
waarbij niet wordt gewisseld. A(5) heeft als 
inhoud 234 waardoor de subroutine 600- 
650 wordt uitgevoerd. Na de RETURN en 
zit nu dus 234 in A(3) terwijl A(5) de waarde 
445 heeft gekregen. Als de J-loop opnieuw 
wordt doorlopen wordt een vergelijking 
gemaakt tussen A(3) = 234 en A(6) = 66. 
Omdat A(6) kleiner is dan A(3) krijgen we 
hier opnieuw een wissel. Het eigenaardige 
van deze sorteermethode is, dat er naast 
het rangschikken van de kleinste getallen, 
tijdens de verwerking ook andere getallen 
op een onverwachte manier van plaats 
veranderen. In deze serie is dat goed te 
zien, want bij de start stond het getal 234 
op de vijfde plaats in de reeks, na een paar 
wissels is het getal naar achteren gescho¬ 
ven, terwijl uiteindelijk de vierde plaats in 
de reeks de juiste is. De sortering wordt op 
dezelfde manier door het programma af¬ 
gemaakt. 

Exchange-sort 

De hiervoor beschreven en geïllustreerde 
verwissel- methode om te sorteren heeft 
naast het feit dat er weinig regels nodig zijn 
om de routine in een Basic-listing op te 
nemen, niet zo veel voordelen. Ten eerste 
is de methode nogal omslachtig, waardoor 
hij voor Basic niet goed te gebruiken is. 
Daar komt bij, dat er ook bij het opnieuw 
rangschikken van een gesorteerde reeks 
data met deze methode, nagenoeg even¬ 
veel tijd door de computer wordt gebruikt. 

Een voordeel is het gemak waarmee deze 
routine voor 'snelle’ programmeurs te ge¬ 
bruiken is. 


Bubble-sort 

Een betere, gestroomlijnder sorteermetho¬ 
de is de veel toegepaste Bubble-sort. 
Bubble betekent belletje en dat is ook wat 
er hier gebeurt. Per stuk worden de getal¬ 
len vergeleken met het direkt daaropvol¬ 
gende getal. We maken in Basic nog wel 
gebruik van een dubbele lus, maar onze 
tabel zal laten zien, dat er op een snellere 
manier door de lussen wordt gelopen. 
Bovendien wordt bij de Bubble-sort ge¬ 
bruikt gemaakt van een vlag, waardoor de 
routine onmiddelijk stopt en niet, zoals de 
exchange-sort zondermeer blijft doorgaan 
tot beide lussen zijn afgewerkt. 

Om de bubble-sort in het programma te 
verwerken dienen de reges 200 - 250 en 
600 - 640 te worden aangepast op de 
volgende manier: 

200 REM BUBBLE-SORT 

210 FOR I = N-1 TO 1 STEP -1: VLAG = 0 

220 FOR J = 1 TO I 

230 IF A(J) > A(J + 1) THEN VLAG = 1 : 

GOSUB 600 
240 NEXT J 

250 IF VLAG = 0 THEN I = 1 
260 NEXT I 


600 REM VERWISSELEN 
610 TP=0: REM OPSLAG 
615 GOSUB 700 
620 TP=A(J) 

630 A(J)=A(J + 1) 

640 A(J+1)=TP 
650 GOSUB 700 
660 RETURN 

Als het programma is herschreven en we 
runnen het voor de eerste keer, dan krijgen 
we de volgende tabel op het scherm: 


Abonnement 
op dit blad? 

BeS gratis 

06-0224222 

HP Teleservice: 
elke dag tot 20.30 uur 
(ook in het weekend) 


weggezet. De Bubble methode zal dan 
ook sneller gaan, naarmate de originele 
reeks beter op volgorde ligt. Een compleet 
We zien hier dat de getallen uit de reeks 
uitsluitend verschuiven naar de plaats 
waar ze horen, en niet zoals bij de verwis- 
selsort maar links of rechts even worden 
gesorteerde reeks getallen, of strings, zal 
bij de Bubble-methode dan ook nagenoeg 
geen uitvoertijd meer kosten. 

Return 

Tot zover de uitvoerige toelichting op het 
rangschikken van eenvoudige getallen in 
Basic. Het kan beslist geen kwaad de 
voorbeelden grondig te bekijken, want de¬ 
ze twee methodes geven een schets van 
de mogelijkheden die er zelfs in Basic zijn, 
om met de Commodore professioneel aan 
het werk te gaan. De volgende keer zullen 
we deze en andere methodes om gege¬ 
vens naar grootte te rangschikken toepas¬ 
sen op alfanumerieke data. • 

Jan Bodzinga 


1= 6 

J= 1 

445 

14 

54 

6633 

234 

66 

1465 

1= 6 

J= 1 

14 

445 

54 

6633 
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66 

1465 

1= 6 

J= 2 

14 

445 

54 

6633 
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66 

1465 

1= 6 

J= 2 

14 
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445 

6633 
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66 

1465 

1= 6 

J= 4 
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1= 6 

J= 4 
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1= 6 
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14 
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445 
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14 

54 

445 

234 

66 

6633 

1465 

1= 6 

J= 6 

14 

54 

445 

234 

66 

1465 

6633 

1= 5 

J= 3 

14 

54 

445 

234 

66 

1465 

6633 

1= 5 

J= 3 

14 

54 

234 

445 

66 

1465 

6633 

1= 5 

J- 4 

14 

54 

234 

445 

66 

1465 

6633 

1= 5 

J= 4 

14 

54 

234 

66 

445 

1465 

6633 

1= 4 

J- 3 

14 

54 

234 

66 

445 

1465 

6633 

1= 4 

J= 3 

14 

54 

66 

234 

445 

1465 

6633 

1= 0 

J= 4 

14 

54 

66 

234 

445 

1465 

6633 
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Print-out 


Met o.a. Ufo Attack - Op z’n kop - Blackjack - 
Checksum C-16 - Tempo-typen C-16. 


Op dit moment dat ik dit stukje aan het schrijven ben is het donker 
en vochtig weer buiten. Het is een genot om in een verwarmde 
kamer achter de vertrouwde Commodore te zitten. Ik verwacht 
daarom ook dat er de komende weken een berg listings wordt 
ingezonden. Maar nu we het toch daarover hebben denkt U wel 
om de spelregels, dus vermeld: naam en adres zo volledig 
mogelijk, het type machine waarvoor het bedoeld is en een 
gebruiksaanwijzing van het programma. 

Mochten er nog problemen zijn dan belt U met ons informa¬ 
tienummer maar dit kan alleen ’s maandagavonds tussen 17.00 
en 21.00 uur. Tel. 02155-25162. Als U er niet direkt doorkomt 
probeer het dan na een uur of acht dan is het wat rustiger. 

Veel succes met het intypen van deze listings. • 


Syntax Checksum 


Het overtikken van een listing kan een heel karwei zijn en als u 
een beetje normaal mens bent dan maakt u daarin beslist een 
aantal fouten. Nu is niets moeilijker om de fouten uit je eigen 
werk te halen. Al geruime tijd geleden heeft Jan Bodzinga 
hiervoor een zgn. Checksum-programma geschreven. Om de 
vele nieuwe lezers van Commodore-lnfo te helpen volgt hieron¬ 
der nog een keer een volledige uitlegh over de werking van dit 
programma, waarmee het, hoe vreemd dat misschien ook lijkt, 
echt mogelijk is om met behulp van dit programma de fouten in 
elke door ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

O U tikt de listing heel zorgvuldig over en SAVEt hem voordat u 
het programma RUNt op een diskette of een cassette. 


Inhoud van dit listingdeel 


Checksum C-64 

37 

Blackjack 

49 

Hangman 

38 

Tekening 1 en 2 

50 

Ufo Attack 

39 

Checksum C-16 

51 

Reflektor 

40 

Tempo-typen C-16 52 

Opz’n kop 

44 

Morse C-16 

54 

Topografie spel 

46 




0U tikt het RUN commando in. Mocht het programma de 
boodschap 'Fout in dataregels!’ geven dan heeft u een fout 
bij het overtikken gemaakt. Herstel de fout en SAVE de 
verbeterde versie. Mocht het programma met de boodschap 
'data is weggezet checksum testten met sys....’ komen dan 
is tot dusver alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW commando 
geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic geschreven. 
Als u een programma heeft overgetikt SAVE het eerst, mocht er 
iets mis gaan dan hoeft niet de gehele listing opnieuw te gaan 
intikken. Als u nu een programma op fouten wilt gaan controle¬ 
ren dan kunt u dat in het geheugen laden (wel eerst het 
checksumprogramma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 49152 (C-64) of 
sys 1536 (C-16 en Plus/4) in. 

Als alles goed is gegaan loopt er nu een rij regelnummers over 
het scherm met getallen erachter. Dezelfde lijst staat ook achter 
elk door ons geplaatste programma. Wijkt nu een nummer 
achter een regelnummer af van het nummer dat in het blad staat 
dan heeft u in die regel iets anders ingetikt dan er in het blad 
stond. U kunt de stroom getallen d.m.v. de RUN/STOP toets 
pauzeren en weer vervolgen met de F1 of F7 toets. Het is 
uitermate belangrijk dat u goed met dit programma overweg 
kunt en mocht U het niet goed werkend krijgen bel dan gerust 
even met onze listingservice telefoonlijn. 


rem ******************************* 
** 

rem basic loader "SYNTAX.CHECKSUM" 
rem na de commando’* ’run’ en ’new’ 
rem blij-ft dit programma in het qs- 
rem heugen, laad het te testen pro- 
rem gramma en tik daarna sys 49152. 
rem ******************************* 
** 

i=*49152 srem beginadres 

readas i-f a<0then40s rem data xngeleze 

n 

pokei,aii*i+l:b=b+a:goto20 
i-f b< > 168441 henpr i n t" CCLR-HOME1 -fout 
in dataregels! ":b=0:end 
poke49184, 148!poke49185, 192 
i =49300 

read a: i-fa<0then80 
pokei,a:b=a+b:i=i+l:goto60 
if b< >20068thenpr int " C CLR-HOME 1 -f out 
in dataregels! (vanaf regel 240)": 
b = 0:end 

pr infdata is weggezet" 
pr int"checksum testen met sys49152" 
data 165,43,166,44,133,163,134,164, 
169, 147 

data 32,210,255,160,0,240,3,32,73, 
192 

data 32,73,192,208,1,96,32,225,255, 
208 

data 3,76,116,164,32,81,192,32,73,1 
92 


140 data 240,12,201,32,240,247,24,101,1 
67,133 

150 data 167,76,37,192,166,167,169,0,13 
2, 168 

160 data 32,205,189,169,13,32,210,255,1 
64, 168 

170 data 76,17,192,200,208,2,230,164,17 
7, 163 

180 data 96,162,0,189,123,192,240,6,32, 
210 

190 data 255,232,208,245,32,73,192,170, 
32,73 

200 data 192,132,168,32,205,189,162,3,1 
69,32 

210 data 32,210,255,202,208,250,169,0,1 
33^167 

220 data 164,168,96,82,69,71,69,76,32,0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data —1 

*** EINDE LISTING *** 


syntaxchecksum 1isttestpragramma 

regel I 249 

regel' 2 84 

regel 3 125 

regel 4 2 

regel 5 246 


regel 

6 

152 

regel 

7 

249 

regel 

10 

157 

regel 

20 

64 

regel 

30 

38 

regel 

40 

57 

regel 

50 

14 

regel 

55 

251 

regel 

60 

192 

regel 

70 

42 

regel 

80 

244 

regel 

90 

245 

regel 

95 

237 

regel 

100 

183 

regel 

110 

158 

regel 

120 

232 

regel 

130 

183 

regel 

140 

96 

regel 

150 

96 

regel 

160 

127 

regel 

170 

71 

regel 

180 

223 

regel 

190 

73 

regel 

200 

79 

regel 

210 

109 

regel 

220 

106 

regel 

230 

225 

regel 

240 

16 

regel 

250 

163 

regel 

260 

92 

regel 

270 

225 

ready. 















HANGMAN 


Dit is weer een computerversie van het overbekende spel galgje. 
Als U alleen wil spelen op de lange winteravonden laat de 
computer U een woord raden. 


99 rem ****initialisering********* * 

* * * 

100 dim w$(999):b=0:poke53280,0:poke 
53281,0:poke646,1 

109 rem ****intro****************** * 

* * 

110 print"{CLR-HOME}{neer}" 

120 print"{2xspatie>{RVS-aan} {RVS-uit} 
{2xspatie>{RVS-aan} {RVS-uit}{2xspat 
ie}{RVS-aan}{2xspatie}{RVS-uit}{2xsp 
atie}{RVS-aan} {RVS-uit}{2xspatie} 
{RVS-aan} {RVS-uit} {RVS-aan}{4xspat 
ie}{RVS-uit} {RVS-aan} {RVS-uit} 

{3xspatie}{RVS-aan} {RVS-uit} {2xspat 
ie}{RVS-aan}{2xspatie}{RVS-uit}{2xsp 
atie}{RVS-aan} {RVS-uit}{2xspatie} 
{RVS-aan} {RVS-uit}" 

130 print"{2xspatie}{RVS-aan} {RVS-uit} 
{2xspatie}{RVS-aan} {RVS-uit} {RVS-a 
an} {RVS-uit}{2xspatie}{RVS-aan} 
{RVS-uit} {RVS-aan}{2xspatie}{RVS-u 
it} {RVS-aan} {RVS-uit} {RVS-aan} 

{RVS-uit}{4xspatie}{RVS-aan}{2xspat 
ie}{RVS-uit} {RVS-aan}{2xspatie} 
{RVS-uit} {RVS-aan} {RVS-uit} {.2xspat 
ie}{RVS-aan} {RVS-uit} {RVS-aan} 

{2xspatie}{RVS-uit} {RVS-aan} {RVS-u 
it}" 

140 print"{2xspatie}{RVS-aan}{4xspatie} 
{RVS-uit} {RVS-aan}{4xspatie}{RVS-ui 
t} {RVS-aan} {RVS-uit} {RVS-aan} 

{2xspatie}{RVS-uit} {RVS-aan} {RVS-u 
it} {RVS-aan}{2xspatie}{RVS-uit} 
{RVS-aan} {RVS-uit} {RVS-aan} {RVS- 
uit} {RVS-aan} {RVS-uit} {RVS-aan} 
{4xspatie}{RVS-uit} {RVS-aan} {RVS-u 
it} {RVS-aan}{2xspatie}{RVS-uit}” 

150 print”{2xspatie}{RVS-aan} {RVS-uit} 
{2xspatie}{RVS-aan} {RVS-uit} {RVS-a 
an} {RVS-uit}{2xspatie}{RVS-aan} 
{RVS-uit} {RVS-aan} {RVS-uit}{2xspa 
tie}{RVS-aan} {RVS-uit} {RVS-aan} 
{RVS-uit}{2xspatie}{RVS-aan} {RVS-u 
it} {RVS-aan} {RVS-uit}{3xspatie> 
{RVS-aan} {RVS-uit} {RVS-aan} (RVS-u 
it}{2xspatie}{RVS-aan} {RVS-uit} 
{RVS-aan} {RVS-uit}{2xspatie}{RVS-a 
an} {RVS-uit}" 

160 print"{2xspatie}{RVS-aan} {RVS-uit} 

{2xspatie}{RVS-aan} {RVS-uit} {RVS-a 
an} {RVS-uit}{2xspatie}{RVS-aan} 
{RVS-uit} {RVS-aan} {RVS-uit}{2xspa 
tie}{RVS-aan} {RVS-uit} {RVS-aan} 
{4xspatie}{RVS-uit} {RVS-aan} {RVS-u 
it}{3xspatie}{RVS-aan} {RVS-uit} 
{RVS-aan} {RVS-uit}{2xspatie}{RVS-a 
an} {RVS-uit} {RVS-aan} {RVS-uit} 
{2xspatie}{RVS-aan} {RVS-uit}" 


170 print"{2xspatie}... 

• HIMIMMI M ff MltlMUt ttlIM MM IMt 

180 printtab(11)"{neer}(c) h. broekm 
an" 

190 print"{2xneer}{3xspatie}dit is d 
e computerversie van het " 

200 print”{2xspatie}alom bekende spe 
1 ophangertje." 

210 print"{2xspatie}de een typt een 
woord in en de ander" 

220 print"{2xspatie}probeert dit woo 
rd te raden." 

230 print"{2xspatie}of de computer n 
eemt een woord en u" 

240 print”{7xspatie}moet dit probere 
n te raden." 

250 print"{3xspatie}als je een zin n 
eeint zet dan het " 

260 print"{óxspatie}’/’ teken tussen 
de woorden " 

270 print”{neer}" 

280 print" {neer } {llxspatieHRVS-aan} 
sla een toets aan" 

290 geta$:ifa$=""then290 

300 input"{CLR-H0ME}{2xneer}{3xrechts} 

1 of 2 spelers ";sp 
310 if sp<l or sp>2 then 300 
320 if sp=2 then 360 

330 b=b+l:readwS(b):if w$(b)="stop"then 
350 

340 goto 330 

350 u=int(rnd(1)*b):wo$=w$(u):goto37 
0 

360 print"{CLR-HOME}{neer}{rechts}ge 
ef uw woord/zin (niet zichtbaar)" 

:poke646,0:input wo$:poke646,1 

369 rem **'.,** zet woord op scherm **** 

* * * 

370 print"{CLR-HOME}":le=len(wo$):dim 
ar$(le),bl$(le):b=-l 

380 forx=ltole:ar$(x)=mid$(wo$,x,l): 
next 

390 forx=ltole:ifar$(x)="/"thenblS(x 
)=ar$(x):next 

400 bl$(xnext:gosub470 
410 c = 0 : geta$ .-if a$ = ""then410 
420 y=y+l 

430 forx=ltole:ifa$=ar$(x)thenblS(x) 

=a$:c=l 

440 nextx:ifc=lthengosub470 
450 ifc=0thengosub480 
460 goto410 

470 print"{HOME}"tab(222):forx=ltole 

:printblS(x);:nextx:gosub 730:return 

479 rem ** * * teken galgje************ 

* * 

480 b=b+l:ifb=0thenforx=ltoll:pokel8 
65+x,120:nextx:return 

490 ifb=lthenforx=0to560step40:pokel 
271+x,97:nextx:return 
500 ifb=2thenforx=lto6:pokel230+x,12 
1:next:return 

510 ifb=3then:pokel274,78:pokel313,7 
8:pokel352,78:return 
520 ifb=4thenforx=0tol20step40pokel 
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276+x,93:next:return 

ÖREGEL 99 

116 

REGEL 

480 

165 

530 

ifb=5thenpokel435,85:pokel436,67 

REGEL 

100 

136 

REGEL 

490 

116 


:pokel437,73:pokel475,74:pokel47 

REGEL 

109 

53 

REGEL 

500 

203 


6,67:pokel477,75 

REGEL 

110 

129 

REGEL 

510 

198 

540 

ifb=5thenreturn 

REGEL 

120 

233 

REGEL 

520 

24 

550 

ifb=6thenpokel516,93.-pokel555,10 

REGEL 

130 

49 

REGEL 

530 

119 


2:pokel556,102:pokel557,102:poke 

REGEL 

140 

141 

REGEL 

540 

233 


1595,102 

REGEL 

150 

213 

REGEL 

550 

223 

560 

ifb=6thenpokel596,102:pokel597,1 

REGEL 

160 

49 

REGEL 

560 

13 


02:pokel635,102:pokel636,102:poke 

REGEL 

170 

3 

REGEL 

570 

234 


1637,102 

REGEL 

180 

117 

REGEL 

580 

90 

570 

ifb=6thenreturn 

REGEL 

190 

8 

REGEL 

590 

103 

580 

ifb=7thenpokel554,77:pokel513,77 

REGEL 

200 

141 

REGEL 

600 

197 


:return 

REGEL 

210 

15 

REGEL 

610 

47 

590 

ifb=8thenpokel558,78:pokel519,78 

REGEL 

220 

221 

REGEL 

619 

224 


:return 

REGEL 

230 

46 

REGEL 

620 

105 

600 

ifb=9thenpokel675,78:pokel714,78 

REGEL 

240 

129 

REGEL 

630 

51 


:pokel753,120:return 

REGEL 

250 

53 

REGEL 

640 

159 

610 

ifb=10thenpokel677,77:pokel718,7 

REGEL 

260 

90 

REGEL 

650 

104 


7:pokel759,120 

REGEL 

270 

238 

REGEL 

660 

191 

619 

rem **** resultaat ***********.**** 

REGEL 

280 

23 

REGEL 

670 

39 


* * * 

REGEL 

290 

104 

REGEL 

680 

175 

620 

print"{HOME}{15xnëer}"tab{20)"sc 

REGEL 

300 

201 

REGEL 

690 

45 


haam je het was" 

REGEL 

310 

130 

REGEL 

700 

34 

630 

printtab(20)"{neer}{RVS-aan}” ; wo 

REGEL 

320 

82 

REGEL 

710 

169 


$ 

REGEL 

330 

46 

REGEL 

720 

214 

640 

printtab(20)"{HOME}{21xneer}"tab( 

REGEL 

340 

31 

REGEL 

729 

221 


20)"nog een keer j/n" 

REGEL 

350 

108 

REGEL 

730 

97 

650 

geta$:if a$ = ”"then650 

REGEL 

360 

73 

REGEL 

740 

56 

660 

ifa$="j ”thenb=0 :run 

REGEL 

369 

60 

REGEL 

741 

123 

670 

ifa$< >”n"then640 

REGEL 

370 

238 

REGEL 

742 

12 

680 

printtab{25)"{neer}{RVS-aan}tot 

REGEL 

380 

191 

REGEL 

743 

205 


ziens!!":end 

REGEL 

390 

11 

REGEL 

744 

241 

690 

print"{HOME}{lSxneer}"tab(20)”he 

REGEL 

400 

156 

REGEL 

745 

132 


t was " 

REGEL 

410 

193 

REGEL 

746 

123 

700 

printtab(20)"{RVS-aan}";wo$ 

REGEL 

420 

63 

REGEL 

750 

114 

710 

printtab(20)"{neer}geraden in " 

REGEL 

430 

166 

REGEL 

760 

155 

720 

printtab(20)y" beurten":goto640 

REGEL 

440 

148 

REGEL 

770 

208 

729 

rem * * * * * check ****************** 

REGEL 

450 

128 

REGEL 

780 

229 


* 

REGEL 

460 

30 

REGEL 

790 

97 

730 

fort=lto le:if bl$(t)="-"then return 

REGEL 

470 

35 

REGEL 

800 

202 

740 

741 

nextt:goto690 

rem **************************** 

REGEL 

479 

164 

REGEL 

9999 

13 

742 

rem ** zet in deze data's je 

* X 

hh 

H 

UFO ATTACK 

Hl 

HHi 


743 rem ** eigen woorden (max. 999) 

* * 

744 rem ** zet altijd! als laatste 
* * 

745 rem ** woord 'stop'. 

* * 

746 rem **************************** 


750 data"floppy","sfinx”,"huisdeur" 
760 data"cassette","computer","hond" 
770 data"horloge","tentoonstelling" 
7S0 data"joystick","tijdschrift" 

790 data"vloerbedekking","sleutel" 
800 data”quartz","socialisme”,"imper 
ial" 

9999 data"stop" 


Een eenvoudig spelletje gemaakt door Henk Broekman. 

De bedoeling is dat men de UFO’s door middel van de spa¬ 
tiebalk neerschiet. Met de z en de x toets is de tank te 
verplaatsen. Met de spatiebalk kan je schieten. 


100 

110 

120 

130 

140 

150 

160 


170 


rem *»***** ufo at t ack * ********** 
print"{CLR-HOME}{WIT}": sc=0 :ti$= 
" 000000 " 

poke53281,0:poke53280,0 
fort=0to39:pokel984+t,102:next 


X X X X. % % 


poke ufo**** 


********* 


print”{HOME}{RVS-aan)score= "sc: 
y=int(rnd(2)*20) 

s=1024+(y*40):a=a+l: b-s+a: pokeb, 

107:pokeb+1,87:pokeb+2,115:pokeb 
-1,32 

ifa>=37thenpokeb,32:pokeb+1,32:poke 
b+2,32:a=0:gotol50 


* * * 


EINDE LISTING *** 
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180 ifm=lthenreturn 

190 rem *****besturing************ 

200 geta$ 

210 ifa$=”z”thenx=x-l : ifx< =0thenx=0 
220 if a$=’’x"thenx = x + l: if x > =39thenx=3 
9 

230 ifa$=chr$(32)ther»300 

240 print"{HOME}{21xneer}"tab{x)"{3xspat 
ie>] " 

250 printtab(x)" ${RVS-aan>{3xspatie> 

{RVS-uit>$ " 

260 printtab(x)" WWWWW 
270 ifti$ > =”000060”then410 
280 gotol60 

290 rem ******vuur kogel af******** 

300 m=l:fort=1824+x+3 to 1024+X+3 step 
-40:poket,66:poket+40,32:gosublè 
0 

310 p=peek(t-40):ifp=107orp=87orp=ll 
5thenpoket,32:goto350 
320 next 

330 pokel024+x+3,32:m=0:goto160 
340 rem *****«geluid************** * 

350 pokeb,l :pokeb+l,8 :pokeb+2,8 
360 v=54272:forl=0to24:pokev+1,0:next 
:pokev+5,11:pokev+6,16:pokev+24, 

15 

370 pokev+4,129:pokev+1,10:pokev,111 
:fort=lto300:next 

380 forw=15to0step-l:pokev+24,w;next 

390 pokeb,32:pokeb+1,32:pokeb+2,32:m 
=0:a=0:poket-40,32: SC=SC+1 :gotol 
50 

400 rem *****«resultaat*********** * 

410 print”{CLR-HOME}{RVS-aan}resuita 
at" 

420 print”{neer}je hebt er ";sc;" ge 
raakt in 60 sec." 

430 ifsc>uxthenux=sc 

440 print"{neer}uw score{5xspatie>= 

; sc 

450 print"{neerjhoogste score= ”;ux 
460 print"{3xneer>{RVS-aan}hit any k 
ey” 

470 geta$:ifa$=""then 470 
480 goto 110 

*** EINDE LISTING * * * 


ÖREGEL 100 

37 

REGEL 

250 

237 

REGEL 

110 

56 

REGEL 

260 

52 
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120 

37 
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270 

85 
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130 

231 

REGEL 

280 

32 

REGEL 

140 

198 

REGEL 

290 

38 

REGEL 

150 

232 

REGEL 

300 

128 

REGEL 

160 

119 

REGEL 

310 

191 

REGEL 

170 

95 

REGEL 

320 

130 

REGEL 

180 

240 

REGEL 

330 

145 

REGEL 

190 

12 

REGEL 

340 

187 

REGEL 

200 

6 

REGEL 

350 

219 

REGEL 

210 

184 

REGEL 

360 

43 

REGEL 

220 

43 

REGEL 

370 

237 

REGEL 

230 

89 

REGEL 

380 

191 

REGEL 

240 

154 

REGEL 

390 

64 


REGEL 

400 

56 

REGEL 

450 

168 

REGEL 

410 

55 

REGEL 

460 

216 

REGEL 

420 

140 

REGEL 

470 

104 

REGEL 

430 

27 

REGEL 

480 

27 

REGEL 

440 

36 





REFLEKTOR 


Een van onze vaste inzenders van programma’s voor deze 
rubriek is ongetwijfeld Fons Reijsbergen uit Leidschendam. 

In een vierkant zitten 4 punten verstopt. Aan U de taak deze te 
vinden. Er moet een soort laserstraal in het vierkant gestuurd 
worden. Als U nu goed oplet waar deze het vierkant weer verlaat 
moet U deze punten kunnen vinden. De punten buigen de 
stralen namelijk af of absorberen ze. Een uitgebreide handlei¬ 
ding staat in het spel. 

Een waarschuwing voor dit spel is wel op z’n plaats: geef ons 
niet de schuld als uw nachtrust hiervan te lijden heeft. 


1 rem reflektor / cbm-64 

2 rem door fons reijsbergen 

3 rem leidschendam / 070-278619 

4 rem 

10 rem ********** spel uitleg 
20 poke53280,0:poke53281,0:poke5327 
2,23 

30 dima$(23):gosub310 
40 rem ********** set up spel 
50 gosub740:gosub880 
60 rem ********** hoofdloop 
70 gosub960:sc=sc-l:ifft=3then50 
80 ifrtthen70 

90 ui=0 :b=l:e=8:r=l:ifx=2orx=3thenb 
=8:e=l:r=-l 

100 onxgosubl90,250,190,250 
110 a$=mid$(str$(y),2):ifui=5thena$= 

f I_II 

120 ifui=lthena$="A"+a$ 

130 ifui=2thena$="B"+a$ 

140 ifui=3thena$="C"+a$ 

150 ifui=4thena$="D"+a$ 

160 ifui =0thenpr int"{CLR-HOME}ERROR{2xsh 
if t-SPATIE}ERROR":stop 
170 a$(dp-1)=a$(dp-1)+a$:gosubl280:goto 
70 

180 rem ********* laser vertikaal 
190 fori=btoestepr:ifa(i,y)thenui=5: 
i=e:goto220 

200 ifa(i+r,y+l)thenb=y:e=l:y=i:r=-l 
:goto250 

210 ifa(i+r,y-l)thenb=y:e=8:y=i:r=l: 
goto250 

220 next:ifui< >5thenui = l:ifr = lthenui 
= 3 

230 return 

240 rem ********* laser horizontaal 
250 fori=btoestepr:ifa(y,i)thenui=5: 
i=e:goto280 

260 ifa(y+l,i+r)thenb=y:e=l:y=i:r=-l 
:gotol90 

270 ifa(y-l,i+r)thenb=y:e=8:y=i:r=l: 
gotol90 

280 next:ifui<>5thenui=4:ifr=lthenui 











PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT • PRINT-OUT 


Abonnementen kosten ƒ 55,- en voor een vol 
jaar Commodore-lnfo (10 nummers) is het 
verreweg het gemakkelijkste, wanneer u dat 
bedrag aan ons overmaakt op giro 1585491 tnv. 
SAC Blaricum of op onze bank in België BBL 
nr. 310050602562 

OUDE NUMMERS 

Reeds verschenen nummers zijn na te bestellen. 
Maar, helaas, NIET per brief, kaart of telefonisch. 
We leveren die oude nummers alleen bij 
vooruitbetaling op onze giro 1585491. 

De prijs is ƒ 6,75 per nummer 
(dus aangeven welk nummer). 

Van de eerste jaargang, 1984, zijn alleen nog de 
nummers 2, 4 en 5 beschikbaar. In dat jaar zijn 
overigens maar vijf nummers verschenen. 



letter van de ; 

620 print" rand en dan het cijfer va 
n het vakje in te typen.” 

630 print"{neer}Als je denkt te wete 
n waar de punten zyndruk dan op 
toets ’ ' ” ; 

640 prinf'en je mag het een gokje wa 
gen. " 

650 print"{neer}Als je gok fout is d 
an krijg je dat te{2xspatie}hore 
n, maar NIET wat er"; 

660 print" fout was." 

670 print"{neer>Je mag maar drie kee 
r een poging wagen{2xspatie}om d 
e juiste plaatsen te"; 

680 print" raden." 

690 prinf'Daarna ben je te laat en h 
eb je een{5xspatie}score van 0 p 
unten." 

700 print"{2xneer>Je begint met een 
score van 100 bij elkestraal die 
je uitzendt "; 

710 prinf'gaat er een punt vanaf.” 

720 print"{2xneer>{GROEN}{llxspatie} 
Druk op een toets.{WIT}”:waitl97 
,191:return 

730 rem ********* speelveld 

740 print"{CLR-HOME}{neer}{6xspatie} 
123 4{neer}A{op}5 6 7 8{neer}" 


290 return 

300 rem ********* uitleg 
310 print"{CLR-HOME}{GEEL}{llxspatie} 
REFLEKTOR STRAAL” 

320 print"{2xneer>{WIT}Bij dit spel 
is het de bedoeling om een viert 
al punten te vinden." 

330 prinf'Deze punten bevinden zich 
in een vier-{2xspatie}kant van 8 
*8 vakjes." 

340 print”{neer}Om deze{2xspatie}pun 
ten te vinden moet je vanaf" 

350 prinf'de buiten kant een straal 
door het vier-kant sturen.” 

360 prinf'De straal gaat in een rech 
te lijn door{2xspatie}het vierka 
nt en wordt"; 

370 print" alleen door de{4xspatie}p 
unten weerkaatst." 

380 print"{neer}Door nu goed te lett 
en op de in- en uit-gang van een 
straal, 

390 prinf'moet je in staat{3xspatie} 
zijn de punten te vinden." 

400 print"{neer}De straal kun je van 
af vanaf alle kantenhet vierkant 
insturen." 

410 print"{neer}{GROEN}**Druk op een 
toets voor het vervolg.**{WIT}” 

:waitl97,191 

420 print"{CLR-HOME}Elke punt (*) ov 
erlapt de 8 omringende{2xspatie} 
vakjes, elk vakje heeft"; 

430 print" een ander effectop de str 
aal. " 

440 print"{neer}{GEEL}{4xspatie}A B 
C" 

450 print" 0@2]2]2]2@" 

460 print" ] ]]]]]] 3 {3xspatieHWIT}s 
traal A word afgebogen" 

470 print"{GEEL} +@[ 3[3[] 

480 print" @@@=].3-@@{2xspatie}{WIT} 
straal B word geabsorbeerd" 

490 print"{GEEL} +@[@[@[@[@” 

500 print" ] 3 - 3 * 3•3{3xspatie}{WIT}s 
traal C word afgebogen” 

510 print"{GEEL} 

515 print" ] 3 . 3 . 3 . 3 ” 

520 printtab{20)"[@[@[@[@[" 

530 print"{WIT}{2xspatie}Een kombina 
tie is {GEEL}]*] ] ] ]” 

540 print''{WIT}{2xspatie}ook mogelij 
k.{Sxspatie}{GEEL}[@[@[@[@[" 

550 printtab{20)"] ]0@@@@@ " 

560 print"{WIT>{2xspatie}Dit is een 
simpel {GEEL}[@[]t@[@[" 

570 print"{WIT}{2xspatie}voorbeeld.{7xsp 
atie}{GEEL}@@@=] 3 ]" 

580 printtab(20)"[@[@[@[@[" 

590 printtab{20)"3 ] 3*3 ]" 

600 print"{2xneer}{GROEN}**Druk op e 
en toets voor het vervolg.**{WIT}" 

:waitl97,191 

610 print"{CLR-HOME}{neer}Je zend ee 
n straal het vierkant in door de 


41 
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750 printtab(5)"0@2@2@2@2@2@2@2@." 

760 fori=lto7:print”{2xspatie}"i;tab( 

5)"] ]]]]]]] ]"i 
770 i fi=4thenprinttab(4)"D+@[@[@[@[@ 
C@[@[@3B":goto790 

780 printtab(5)”+@[§[@[@[@[@[@[§3" 

790 next:print”{3xspatie}8 ] ] ] ] ] 

] ] ] ] 8” : printtab ( 5 ) 

1@1@1@1@=" 

800 print"{neer}{6xspatie>l 2 3 4{op} 
C{neer}5 678" 

810 a $ = " @@@@@@@@@@@@@@@@@@@@(9'' 

820 print”{HOME}{GROEN}{2xspatie}0"a 
$".." 

830 fori=lto21:print"{2xspatie}]"tab( 

24)"]]"tab(37)"]":next:print"(2xspat 
ie}+"a$"3]"tab(37)"]" 

840 print”{2xspatie}]"tab(24)”]]"tab( 
37)"]" 

850 print"{2xspatie}-"a$"=-@@@@@@@@@ 

@(9= {WIT} " ; 

860 sc=100:gosubl360:p=0:gosubl310:p 
=1:return 

870 rem ********* nieuw spel 
880 fori = lto8:forj = lto8:a(i,j)=0:next 
j,i:fori=lto23:a${i):next 
890 fori=lto4 

900 x=int(rnd(l)*7+l):y=int(rnd(l)*7 
+1):ifa(x,y)=lthen900 
910 a(x,y)=1:next 

920 b$=”{HOME}":fori=0to22:b$=b$+”{neer}" 
:next:fori=0to20:b$=b$+"{rechts}" 

: next 

930 dp=l: ft=0:rt=0 
940 return 

950 rem ********* input 
960 printleft$(b$,27)"Straal in (bv 
B4) ":printb$;:poke204,0: rt=0 
970 geta$:if(a$<”a"ora$ >"d")anda$< >” 
"then970 

980 ifa$=""thenpoke204,1:gotol090 
990 i$=chr$(128+asc(a$)):printi$;:x= 
asc(a$)-64: 

1000 getaS:if(a$<"1"ora$ >"8")anda$<>chr$ 

(20) thenl000 

1010 ifa$=chr$(20)thenprint" {2xlinks} 
{links}"; :go to970 

1020 printaS;;y=val(a$):j$=a$+" - " 

1030 geta$:ifa$< >chr$(13)anda$< >chr$( 
20)thenl030 

1040 ifa$=chr$(20)thenprint” {2xlinks} 
{links}";:gotol000 

1050 poke204,1:printb$"{3xspatie}" 

1060 ifdp< 22thena$(dp)=i$+j$;dp=dp+l; 
return 

1070 fori=2to21:a$(i-l)=a$(i):next:a$ 

(21) =i$+j$:return 

1080 rem ******** raden van punten 

1090 rt=l:g=0: fori=lto4:printleft$(b$ 

,27);”Punt"i"A. - D.{5xspatie}{1lxl. 
nks}” ; 

1100 poke204,0 

1110 geta$:ifa$<"l"orai>"8"thenl110 

1120 printaS;”{4xrechts}x=val(a$) 

1130 getal:if(a$<"1"ora$>"8")anda$<>chr$ 
(20)then!130 


1140 ifa$=chr$(20)thenprint" {6xlinks} 
{links}"; :gotolll0 
1150 printaS;:y=val(a$) 

1160 getaS:ifa$< >chr$(13)anda$< >chr$( 
20)thenll60 

1170 ifa$=chr$(20)thenprint" {2xlinks} 
{links}";:gotol130 
1180 ifa(y,x)=ltheng=g+l:a(y,x)=2 
1190 poke204,1:print" ":next 
1200 ifg=4thengosubl310:printleft$(b$ 

,27)"GOED ZO! SCORE"sc"{links} ” 

:ft=3:goto!250 

1210 fori=lto8:forj=lto8:ifa(i,j)=2then 
a(i,j)=1 
1220 nextj,i 

1230 ft = ft+1;ifft< 3thenprintleft$(b$ , 

27);"JAMMER"4-g"{links} NIET GOE 
D.":gotol260 

1240 printleft${b$,27);"NIET GERADEN 
IN 3 x" 

1250 gosubl310 

1260 gosubl360:waitl97,191:return 
1270 rem ******** print in-uit tabel 
1280 gosubl360 

1290 print"{HOME}{2xneer}";fori=lto21 

:printtab(27)a${i):next:print"{2xop}” 
:return 

1300 rem ******** print de punten 
1310 print"{HOME}{3xneer}{GEEL}":fori 
=lto8:printtab(6);;forj=lto8 
1320 ifa(i,j)< >0andp=l thenprint”*{rechts}" 
;:gotol340 

1330 print”{RVS-aan} {RVS-uit}{rechts}" 

1340 next;print”{neer}":next:print”{WIT}" 

:return 

1350 rem ******** print score 
1360 ifsc< 0thensc=0 

1310 print”{HOME}{3xneer}{GEEL}”:fori 
=1to8:printtab(6);:forj=lto8 
1320 ifa(i,j)< >0andp=l thenprint”*{rechts}" 
;:gotol340 

1330 print"{RVS-aan} {RVS-uit}{rechts}" 

1340 next:print”{neer}":next:print"{WIT}" 

:return 

1350 rem ******** print score 
1360 ifsc<0thensc=O 

1370 print"{HOME}{neer}"tab(27)"{l.groen} 
SCORE"sc"{links} {WIT}":return 
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__ 

OP Z’N KOP 


We weten allemaal dat er met onze trouwe 64 er allerlei 
(vreemde) beeldeffecten mogelijk zijn. 

Letters op zijn kop zetten is niet zo moeilijk maar dat dan alles 
ook nog werkt! Ook de cursor besturing is omgedraaid. 

Dit is een ideaal programma om even te runnen in een compu- 
tershop om de mensen eens goed aan het schrikken te brengen. 

100 sys65409:print”{2xneer>"tab(15)” 
op z'n kop" 

110 print"{2xneer> na 'sys 49152' wo 
rdt heel het scherm" 

120 print"{neer} omgedraaid, je kunt 
dan nog gewoon" 

130 print"{neer} typen en zelfs prog 
rammeren Mi" 

140 a=49}52:c=0 

150 readx$:fori=ltolen(x$)/2:x=10*(asc 
(mid$(x$,i*2-l))-65)+asc(mid$(x$ 

,i*2))-48 

160 pokea,x:c=c + x:a = a + l:next:ifa < 493 
90gotol50 

170 print"{neer>{2xrechts}druk op ee 
n toets..." 

180 pokel98,0 : waitl98,1: pokel98,0 .-sys 
65409:sys491S2:sys58260 
190 data m0q9fIn3alq9a0n3h5n3h7q9 
200 data U8n3h6q9w4n3h8q9a0n3h9q9 
210 data a7n3i0q4h9r7h5n3i4q9a0n3 
220 data i3q9aln3ilq9m8n3i2q5i4d7 
230 data Hy0a6q5i3a5i2n3i3a6ilh0 
240 data i2o4x8q5i3q4i0o5h7x0h9t8 
250 data i0b6u8q5h5c4k5a8n3h5q5h6 
260 data k5a0n3h6q5h7c4k5a8n3h7q5 
270 data h8k5a0n3h8uly0u8r0q9f5n3 
280 data 3lq9d2q2a0p7a0y0p7a0ylp7 
290 data a0y2p7a0y3x2u8ylr3a2wla9 
300 data a3ola2wlr3a0wlelz2ola0wl 
310 data q9ulolc4u8q2qSq0t2o2c0a3 
320 data O0cla3q9a0n3a2iöj6t8a2b6 
330 data g6q9a3n3a2q2a0q0a4n4zln2 
340 data Z2q2xlq0y3n4z3n2z4q0a0r7 
350 data Zlo5z3x0zlu8a2x0z2q5z3u8 
360 data a2t8z4t8z3q5z4uly0r6x2r3 
370 data n4a2q2a0p7a0v6p7a0v7p7a0 
380 data v8p7a0v9x2u8yIh6e9x4 
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TOPOGRAFIE SPEL 


Mare de Hingh heeft voor ons een spel gemaakt kwaarin de 
topografie van Nederland centraal staat. Het bijzondere is 
echter dat het plaatsnamen-bestand zelf eenvoudig is uit te 
breiden, door de plaatsnaam in te typen en met de cursor de 
plaats aan te wijzen. Deze wordt dan in dataregels wegge¬ 
schreven. 

Niet vergeten de nieuwe versie van het programma ook weg te 
schrijven. 


100 poke55,128:poke56,62 : clr 
110 c=0:fora=16000tol6463:readd:poke 
a,d:c=c+d:next 

120 ifc<>48154thenprlnt”fout in data 
regel 9000 en verder":end 
130 fori=0to3:pokel6464+i,peek(63+i) 

: next 

140 x=78:y=80:i=rnd(-ti):vp$="utrech 
t" 

150 sys65409:v=S3248:pokev+21,255:poke 
v+23,255:pokev+27,255:pokev+28,0 

160 pokev+29,255:fori=0to5:poke2040+ 
i,250+i:pokev+39+i,1:next:sysl63 
84,x,y 

170 print"{CLR-HOME}{2xneer}"tab(18) 
"topografie-spel” 

180 printtab(18)"{2xneer}l-{2xspatie> 
start spel":printtab(18)"{neer}2 
-{2xspatie>plaatsenbestand" 

190 printtab(18)"{neer}3-{2xspatie}o 

pzoeken":printtab(18)"{neer}4-{2xspa 
tielstop" 

200 printtab(18)"{2xneer}maak uw keu 
ze 

210 gett$:onval(t$)goto220,710,570,9 
999:goto210 

220 gosubl170:print”{HOME}{4xneer}"tab( 
20 )"klaar voor de start" 

230 pokel472,43:poke55744,0:sp=15•sc 
= 0 

240 fori=0tol90step3:tt=i:gosubl150: 
next 

250 printtab(20)"{op}{19xspatie}" 

260 gosubll90 

270 readaa:f ori=0tornd (1)*aa:readp$, 
xx,yy:next:i=fre(0) 

280 ifp$=vp$then260 
290 print"{HOME}{5xneer}"tab(19)"ga 
naar "p$:printtab(18)"{neer}gebr 
uik de cursor" 

300 printtab(18)"toetsen of joystick 
2 ":printtab(20)"{neer}druk dan 
op return” 

310 printtab(22)"of vuurknop":pokelQ 
8,0 

320 tt=tt-l:gosubll50:iftt<lthen520 
330 fori=ltosp 

340 gett$:jy=peek(56320)and31 : ift$="" 
andjy=0goto320 

350 ift$=chr$(13)or((jyandlö)=0)then 
410 

360 if ( t$-"{op }"or ( (Jyandl) =0 ))andy< 
150theny=y+l 


370 if{t$="{neer}"or{(jyand2)=0))and 
y >20theny=y-l 

380 if{t$ = "{links}"or({jyand4)-0))and 
x<125thenx=x+l 

390 if(t$=”{rechts)"or((jyand8)=0))and 
x > 32thenx=x-l 

400 sysl6384,x,y:next:goto320 
410 ifabs(x—xx)<3andabs(y—yy)<31hensys 
16384,xx,yy:x=xx:y=yy:goto490 
420 printtab(23)"{2xneer}u zit er zo 
' n" 

430 printtab(20)int(rnd(1)+2.5*sqr({ 
x-xx) ~2+ (y-yy)~2))"km naast..." 

440 fori=ltol000 :next 
450 x=x+sgn(xx-x):y=y+sgn(yy-y):sysl 
6384,x,y 

460 tt=tt-l:gosubll50:iftt<lthen520 
470 ifx< >xxory< >yythen450 
480 goto510 

490 printtab(25)”{2xneer}goed!":sc=s 
c+10:printtab(20)"{2xneer}score:” 
sc 

500 fori=ltol5-sp/2:tt=tt+l:gosubl15 
0 : iftt<196thennext 

510 sp=sp-l:fori = 1to2000:next:gosubl 
170:vp$=p$:goto 260 

520 gosubl170:print”{HOME}{3xneer}"tab( 
22)"game over" 

530 printtab(20)”{2xneer}uw score:"s 
c 

540 printtabf19)”{4xneer}druk op 'n 
toets":pokel98,0 
550 gett$:ift$="”goto550 
560 runl40 

570 gosubl170:print"{HOME}{3xneer}"tab( 

19) "welke plaats wilt u":printtab( 

20) ”opzoeken?{neer}" 

580 printtab(20):inputpl$ 

590 gosubl190 

600 readaa:fori=ltoaa:readp$,xx,yy:if 
P$< >pl$thennext:goto660 
610 x = x+sgn ( xx-x ) : y=y+sgn (yy-y ) .-sysl 
6384,x,y 

620 ifx< >xxory<>yythen610 

630 printtab(19)"{3xneer}de ’+' wijs 

t waar":printtab< 20 )pl$" ligt." 

640 f ori=ltol0 :poke55744,0:poke1472, 

32:forj=lto50:next:pokel472,43 
650 forj =ltol00 :next:next:goto670 
660 printtab(19)”{3xneer}die plaats 
komt niet":printtab(19)"voor in 
het bestand." 

670 printtab(19)"{2xneer}wilt u nog 
n plaats":printtab(22)"opzoeken 
? (j/n)” 

680 gett$:ift$="n”thenrunl40 
690 ift$< >”j"then680 
700 goto570 

710 print”{CLR-HOME}{2xneer}"tab(18) 
"plaatsenbestand":poke53265,27 

720 printtab(i8)”{2xneer}l-{2xspatie} 

lijst naar scherm" 

730 printtab(18)"{neer>2-Oxspatie}' 
^^spatie} ' • {2xspatie}printer" 

0 printtab( 18 )"{neer}3-(2xspatie}n 
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ieuwe toevoegen" 

750 printtab(18)"{neer}4-{2xspatie}o 
ude wijzigen" 

760 printtabC18)"{neer}5-{2xspatie}t 
erug naar menu” 

770 printtabC18)”{2xneer}maak uw keu 
ze":pokel98,0 

780 gett$:onval(t$)goto790,910,930,1 
090,170:goto780 

790 gosubll90:i=l:readaa:print”{CLR-HOME 
>" 

800 readp$,x,y:printtabC18)i;p$ 

810 pokel472,43:poke55744,0:sysl6384 
, x, y 

820 ifi=aathen880 

830 printtabC19)"{neerjreturn voor v 
olgende":pokel98,0 
840 gett$:ift$="”goto840 
850 ift$<>chr$(13)then710 

860 i=i+l:ifpeek(214)>23thenprint"{CLR-H 
OME}" 

870 printtab(19)"{op}{20xspatie>{2xop>" 

:goto800 

880 printtabC19}"{neer}einde, druk ’ 
n toets":pokel98,0 
890 gett$:ift$="”goto890 
900 goto710 

910 gosubl190:readaa:open4,4:fori=lto 
aa:readp$,xx,yy 

920 print#4,i;p$:next:close4:goto710 

930 gosubl190:readaa:aa=aa+l:i=aa 
940 print"{CLR-HOME}{3xneer>"tab(19) 
"plaats toevoegen aan":printtab( 

19) ”bestand{neer}" 

950 printtab(20)"plaatsnaam?":printtabC 

20) :inputpl$ 

960 printtab(20)"{2xneer}geef nu de 
ligging":printtabC20)"van de pla 
ats aan" 

970 printtab(21)"gebruik crsr en":print 
tab(21)"return." 

980 pokel472,43:poke55744,0 
990 gett$:ift$=""then990 
1000 ift$=chr$(13)thenl060 
1010 ift$="{op}”andy<150theny=y+l 
1020 ift$ = "{neer}"andy > 20theny=y-l 
1030 ift$="{links}"andx<125thenx=x+l 
1040 ift$ = ”{rechts}"andx>32thenx=x-l 
1050 sysl6384,x,y:goto990 

1060 pokeS3265,11:print”{CLR-HOME}{2xneer 
}10000 data"aa:print10000+i"data 
”pl$","x","y 

1070 print"x="x":y=”y":goto710{HOME}” 

1080 pokel98,3:poke631,13:poke632, 13: 
poke633,13:end 

1090 print"{CLR-HOME}{3xneer}"tab(19) 
"plaatsnaam of coordprinttabC 
19)"veranderen.” 

1100 printtab(20)”{neer}oude plaatsna 
am?":printtabC20):inputpl$ 

1110 gosubl190:readaa:fori=ltoaa:read 
p$,xx,yy 

1120 ifp$<>pl$thennext:printtab(20)"{2xne 


er{onbekend. " : fori = ltol000 : next: 
goto710 

1130 x=xx:y=yy:sysl6384,x,y:pokel472, 

43:poke55744,0 

1140 printtab(20)"nieuwe ";:goto950 

1150 s=int(tt/8)*40:bi=7andtt:poke562 
57-s,8:ifsthenpoke2025-s,160 

1160 pokel985-s,peek(16456+bi):return 

1170 print"{HOME}":fori=lto23:printtabC 
18):pokel9,4:printspc(21):pokel9 
,0:print 

1180 next:return 

1190 fori=0to3:poke63+i,peek(16464+i) 

:next:return 

9000 data0 ,0,2,0,0,48,0,46,1,3,192,18 
5,8,3,207,16,15,255,0,31,255,32, 
63,255,96 

9010 data63,255,96,127,255,64,127,255 
,0,63,255,64,127,255,124,127,255 
,252,3,255 

9020 data252,15,255,255,3,255,255,15, 
255,254,30,127,248,1,255,248,29 , 
255,0,0,0 

9030 data0 ,0,0,0,224,0,0,224,0,0,240, 
0,0,248,0,0,252,0,0,254,0,0,254, 
0,0,254,0 

9040 data0 ,254,0,0,254,0,0,254,0,0,25 
2,0,0,252,0,0,252,0,0,252,0,0,25 
2,0,0,192 

9050 data0 ,0,192,0,0,128,0,0,0,0,15,1 
95,0,31,199,0,31,223,0,31,159,0, 
31,206,0 

9060 data63,241,0,63,255,0,127,255,0, 
127,255,0,255,255,1,255,255,3,25 
5,255,7 

9070 data255,255,15,255,255,7,255,255 
,3,255,255,56,255,255,6,127,255, 

243.7.255 

9080 datal56,127,255,11,255,255,0,223 
,248,0,223,254,0,191,255,0,127,2 

55.192.255 

9090 data255,192,255,255,192,255,255, 
128,255,254,0,255,252,0,255,224, 
0,255,224 

9100 data0 ,255,232,0,255,248,0,255,24 
8,0,251,192,0,252,0,0,248,0,0,25 
2,0,0,252 

9110 data0 ,0,254,0,0,254,0,0,0,54,63, 
255,120,111,255,63,15,223,23,253 
,219,98,12 

9120 data3,249,208,3,255,224,1,103,19 
2,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 ,0,0,0,0 

9130 data0, 0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,255,224,0,255,240, 
0,255,240 

9140 data0 ,255,240,0,255,240,0,255,24 
0,0,255,224,0,15,224,0,15,192,0, 

1,240,0,1 

9150 data224,0,1,192,0,1,128,0,3,192, 
0,3,224,0,3,224,0,7,192,0,3,192, 

0 ,0,0,0,0 

9160 data0 ,0,0,0,0,0,32,241,183,120,1 
73,17,208,16,251,138,141,0,208,2 
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4,105,48 




REGEL 

500 

114 

REGEL 

1150 

201 

9170 

datal41,2,208,56,233,72,141 

,4,20 


REGEL 

510 

242 

REGEL 

1160 

174 


8,24 

. 105,48,141,6,208,56,233,56, 


REGEL 

520 

125 

REGEL 

1170 

242 


141 , 

3,208 




REGEL 

530 

37 

REGEL 

1180 

74 

9180 

data24,105,48,141,10,208,32,241, 


REGEL 

540 

255 

REGEL 

1190 

107 


183 , 

138,141,1,208,141 

,3,208,24,1 


REGEL 

550 

111 

REGEL 

9000 

175 


05,4 

2,141 




REGEL 

560 

31 

REGEL 

9010 

27 

9190 

dataS,208,141,7,208,105,42, 

141,9 


REGEL 

570 

255 

REGEL 

9020 

207 


,208,141,11,208,88,96,32,100,111 


REGEL 

580 

70 

REGEL 

9030 

89 


,121,98 




REGEL 

590 

88 

REGEL 

9040 

105 

9200 

data248,247,227 




REGEL 

600 

234 

REGEL 

9050 

80 

9999 

sys65409:end 




REGEL 

610 

174 

REGEL 

9060 

103 

10000 

data 

21 




REGEL 

620 

84 

REGEL 

9070 

242 

10001 

data 

amsterdam, 82 , 

92 



REGEL 

630 

103 

REGEL 

9080 

255 

10002 

data 

den haag, 99 , 79 



REGEL 

640 

247 

REGEL 

9090 

222 

10003 

data 

utrecht, 78 , 80 



REGEL 

650 

187 

REGEL 

9100 

159 

10004 

data 

breda, 87 , 57 




REGEL 

660 

130 

REGEL 

9110 

214 

10005 

data 

rotterdam, 94 , 

71 



REGEL 

670 

241 

REGEL 

9120 

74 

10006 

data 

groningen, 45 , 

128 



REGEL 

680 

96 

REGEL 

9130 

59 

10007 

data 

leeuwarden, 62 , 

126 



REGEL 

690 

58 

REGEL 

9140 

141 

10008 

data 

assen, 43 , 118 




REGEL 

700 

37 

REGEL 

9150 

115 

10009 

data 

maastricht, 64 , 

24 



REGEL 

710 

207 

REGEL 

9160 

106 

10010 

data 

heerlen, 57 , 27 




REGEL 

720 

252 

REGEL 

9170 

201 

10011 

data 

venlo, 54 , 47 




REGEL 

730 

66 

REGEL 

9180 

176 

10012 

data 

eindhoven, 69 , 

51 



REGEL 

740 

252 

REGEL 

9190 

97 

10013 

data 

dordrecht, 91 , 

65 



REGEL 

750 

24 

REGEL 

9200 

177 

10014 

data 

vlissingen, 117 

, 51 



REGEL 

760 

99 

REGEL 

9999 

96 

10015 

data 

nijmegen, 61 ,69 



REGEL 

770 

77 

REGEL 

10000 

230 

10016 

data 

arnhem, 57 , 75 




REGEL 

780 

69 

REGEL 

10001 

78 

10017 

data 

apeldoorn, 57 , 

86 



REGEL 

790 

171 

REGEL 

10002 

165 

10018 

data 

haarlem, 90 , 93 




REGEL 

800 

4 

REGEL 

10003 

209 

10019 

data 

almere, 77 , 93 




REGEL 

810 

21 

REGEL 

10004 

20 

10020 

data 

hilversum, 77 , 

86 



REGEL 

820 

79 

REGEL 

10005 

98 

10021 

data 

leiden, 93 , 83 




REGEL 

830 

109 

REGEL 

10006 

134 

19999 

rem 





REGEL 

840 

113 

REGEL 

10007 

200 

20000 

rem bovenstaande plaatsnamen zij 


REGEL 

850 

34 

REGEL 

10008 

86 


n voorbeelden, het plaatsenbesta 


REGEL 

860 

187 

REGEL 

10009 

155 


nd 





REGEL 

870 

33 

REGEL 

10010 

179 

20001 

rem kan gemakkelijk vanuit 

het p 


REGEL 

880 

190 

REGEL 

10011 

51 


rogramma aangevuld/veranderd wor 


REGEL 

890 

118 

REGEL 

10012 

80 


den. 





REGEL 

900 

33 

REGEL 

10013 

79 







REGEL 

910 

4 

REGEL 

10014 

220 

*** EINDE 

LISTING *** 




REGEL 

920 

21 

REGEL 

10015 

254 







REGEL 

930 

29 

REGEL 

10016 

110 







REGEL 

940 

189 

REGEL 

10017 

89 

ÖREGEL 100 110 REGEL 

300 

73 


REGEL 

950 

172 

REGEL 

10018 

170 

REGEL 110 

21 REGEL 

310 

251 


REGEL 

960 

185 

REGEL 

10019 

107 

REGEL 120 

248 REGEL 

320 

251 


REGEL 

970 

54 

REGEL 

10020 

118 

REGEL 130 

163 REGEL 

330 

244 


REGEL 

980 

46 

REGEL 

10021 

99 

REGEL 140 

200 REGEL 

340 

83 


REGEL 

990 

149 

REGEL 

19999 

143 

REGEL 150 

129 REGEL 

350 

90 


REGEL 

1000 

159 

REGEL 

20000 

21 

REGEL 160 

249 REGEL 

360 

201 


REGEL 

1010 

193 

REGEL 

20001 

68 

REGEL 170 

92 REGEL 

370 

21 


REGEL 

1020 

12 




REGEL 180 

105 REGEL 

380 

215 


REGEL 

1030 

' 204 




REGEL 190 

242 REGEL 

390 

39 


REGEL 

1040 

24 




REGEL 200 

126 REGEL 

400 

193 


REGEL 

1050 

18 




REGÊL 210 

129 REGEL 

410 

205 


REGEL 

1060 

233 




REGEL 220 

254 REGEL 

420 

49 


REGEL 

1070 

212 




REGEL 230 

213 REGEL 

430 

82 


REGEL 

1080 

70 




REGEL 240 

237 REGEL 

440 

206 


REGEL 

1090 

158 




REGEL 250 

156 REGEL 

450 

174 


REGEL 

1100 

234 




REGEL 260 

88 REGEL 

460 

251 


REGEL 

1110 

151 




REGEL 

270 

23 REGEL 

470 

86 

REGEL 

1120 

138 




REGEL 

280 

186 REGEL 

480 

31 


REGEL 

1130 

0 




REGEL 

290 

170 REGEL 

490 

72 


REGEL 

1140 

116 
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| BLACKJACK 


Een overbekend spel waarvan eigenlijk iedereen de spelregels 
wel kent. Zo niet dan worden ze U nog eens uitgelegd na dat u het 
programma heeft ingetypt. 


1 rem * **blackjack** * 

2 rem door michael burghout 

3 rem uit haarlem / 023 330454 

4 rem da costastr. 26 

c, -rf=.m **************************** 


7 print"{3xspatieHRVS-aan> {4xspatie> 
instructies{5xspatie}{RVS-uit}" 

8 print:print" de bedoeling v.h sp 
el is 21 te krijgen" 

9 print" een boer ,vrouw en koning 

zijn 10 " 

10 print” een aas is 11 of l{2xspatie}" 

11 print" de getallen zijn hun eige 
n waarde" 

12 print:print”{7xspatie>veel plez 
ier{6xspatie}" 

13 for a=lto 5000:next a 

14 

15 bl$="??????{neerH6x1inks>":cl$ = 
"{öxspatie}{neer}{6x1inks}":cn$= 

”{HOME}{13xneer}" 

20 ca$="{17xrechts}":nl$="{22xspatie}" 

30 c$="CCCCCC”:d$="B{neer}{links}B{neer 
}{links}B{neer>{links}B{neer}{links} 
B{neer}{links}B{neer}{links}B{neer} 
{links}B":cr=500:dc$=”{2xneer}" 

40 8:dimss$(3):dimpc(9):dimcc(9) 

50 dimcd$(12):dimcn%(12):fori=0tol2 
:readcd$(i):cd$(i)=cd$(i)+" ”:cn 
%(i)=15:nexti 

60 dataa,2,3,4,5,6,7,8,9,10,j,q,k 

70 cd$(9)="10”:SS$(0)="{ROOD}S":SS$ 

(1)="{ROOD}Z":ss$(2)="{ZWART}X": 
ss${3)="{ZWART}A” 

80 print”{CLR-HOME}{ROOD}{15xspatie} 
blackjack" 

90 print"{1.rood}{2xneer}{rechts}c{neer 
}{links}o{neer}{links}m{neer}{links} 
p{neer}{links}u{neer}{links}t{neer} 

{links}e{neer}{links}r{7xneer}{links 
}{BLAUW}u" 

100 1=0:cx$=”{4xrecht s}":sq=0:b=0:cn 
=-l:pn=-l :db=0 :S=0 

110 cy$=cn$+dc$:gosub320:pl$=dt$:ps= 
x:pn=0:pc(pn)=y:gosub420 
120 cy$=dc$:gosub320:cl$=dt$:csl=x:c 
n=0:cc(cn)=y 

130 gosub560:cy$=cn$+dc$:dt$=pl$:x=p 
s:gosub380:rc$=cx$:rp$=cx$ 

140 printcn$;ca${1.blauw} inzet{ZWART}" 
;:inputb 

150 printcn$;ca$;nl$ 

160 ifb<lorb>crthenl40 
170 gosub550 


180 cy$=cn$+dc$:gosub320:pn=pn+1 : pc( 
pn)=y:pl$=dt$:ps=x 

190 cy$=dc$:cx$=rc$:gosub320:c2$=dt$ 

:cs2=x:cn=cn+l:cc(cn)=y 
200 cy$=cn$+dc$:cx$=rp$:dt$=pl$:x=ps 
: gosub380.- gosub420 
210 ifpv=21then290 

220 printcn$;ca$;”{bruin}stoppen of 
kaart" ; 

230 geta$:ifa$="”then230 
240 ifa$< >"s"anda$< >"k"anda$< >"d"then 
printcn$;ca$;nl$:directoryl,350, 

5:goto210 

250 ifa$ = ”k"thengosub320:pn=pn+l:pc( 
pn)=y:gosub380:gosub420:gosub600 
:goto210 

260 ifa$< >”d"ordb> 0orb >crthen280 
270 gosub550:db=l:goto210 
280 ifa$< >”s"orpv<12then210 
290 s=1:gosub570:gosub480 
300 gosub600 

310 gosub320:cn=cn+l:cc(cn)=y:gosub3 
80:gosub480:goto300 
320 directory3,700,5:y=int(rnd(0)*13 
):ifcn%(y)=0then320 
330 dt$=cd$(y):x=int(rnd(0)*4) 

340 if(cn%(y)and(2~x))=0then320 
350 cn%(y)=cn%(y)-2~x 

360 print"{HOME}{ZWART}";cv$;cx$:"U" 

:c$:"I{neer}{links}”;d$;”{HOME}" 

;cy$;cx$;"{neer}"; d$;"(neer){links} 
J" ; CÈ ;"K"; 

370 print”(HOME)”;cy$;cx$;"{neer}{rechts 
}”;bl$;bl$;bl$;bl$;bl$;bl$;bl$;b 
1 $;: fori=ltol00 :next:return 
380 cc$=left$(ss$(x),1) 

390 fori=1to500:next:print"{HOME}";c 
y$;cx$;"{neer}{rechts}”;cc$;dt$; 
"{4xspatie}{neer}{6xlinks}";ss$( 
x);"{5xspatie}{neer}{6x1inks}" ; 

400 printclS;cl$:cl$:cl$;cl$;cl$;:cx 
$=cx$+"{3xrechts}” 

410 directoryl,1000,3:fori=lto500:next 
:return 

420 pv=0:ac=0:fori=0topn:pv=pv+pc(i) 

+1:ifpc(i)=0thenpv=pv+10:ac=ac+l 

430 ifpc(i)>9thenpv=pv-pc(i)+9 
440 next 

450 ifpv>21andac>0thenpv=pv-10:ac=ac 
-1:goto450 
460 ifpv>21thenl=l 
470 return 

480 ifcn< 0thenreturn 

490 cv=0 : ac=0 :f ori=0tocn :cv=cv+cc(i) 

+1:ifcc(i)=0thencv=cv+10:ac=ac+l 

500 ifcc(i)>9thencv=cv-cc(i)+9 
510 next 

520 ifcv>21andac>0thencv=cv-10:ac=ac 
-1:goto520 
530 ifcv>21thenl=-l 
540 return 

550 sq=sq+b:printcn$;"{oranje}{neer} 
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{rechte}ingezet !{öxspatie}{Sxlinke} 
{grijs 2}";sq:cr=cr-b 
560 printen® " {oran je} {rechts}bedrag 
I {Sxspatie}{Sxlinks}{grijs 2}" ; 
cr:return 

570 print"{H0ME}{3xneer}{5xrechts}" ; 
cl®;"{neer}{2xlinks}”;ss$(csl) ; " 
{neer}{2xlinks}{2xspatie}{neer} 
{2xlinks}{2xspatie}{neer}{2xlinks} 
{2xspatie}{neer}{2xlinks}{2xspatie} 
{neer}{2xlinks}{2xspatie}{neer}{2xli 
nks}{2xspatie}" 

580 directoryl,1000,3 

590 cy$=dc$:cx$=rc$:dt$=c2®:x=csl:gosub 
380:gosub480:return 
600 ifl=lthenprintcn$;ca$;"{ROOD} je 
bent dood !{3xspatie}”:directory 
1,800,10:directoryl,700,20:goto7 
80 

610 ifl<>-lthen640 

620 printcn$;ca®;nl$;cn$;ca$;"{PURPER} 
{2xspatie}ik ben dood !":cr=cr+2 
*sq 

630 directoryl,800,10:fori=lto50:next 
.•directoryl , 900,10 : goto790 
640 ifcv<>21orcn<>lthen670 
650 printend;ca$;"{ZWART}ik heb bla 
ckj ack!":directoryl,900,20:if pv 
=21andpn=lthencr=cr-3*sq 
660 fori=ltol0: directoryl,800+10*i,1 
0:next:cr=cr-sq:goto790 
| 670 ifs=0thenreturn 

680 ifpv<>21orpn<>lthen710 
690 printcn$;ca${ZWART}jij heb bl 
ackjack!”:cr=cr+3*sq:gosub570 
700 fori=lto30:directoryl,300+10*i,1 
0:directory2,420+10*i,10::forj=l 
to50:next j:nexti:goto790 
710 ifcv<17thenprintcn$;ca$;"{ROOD}i 
k neem een kaart return 
720 ifcv<pvthen740 

730 printen®;ca®;"{grijs 2}{4xspatie} 
jij verliest”:directory 1,700,10: 
fori=lto50:next:directoryl,600,2 
5:goto790 

740 printen®;ca$;"{GROEN}{4xspatie}i 
k verlies{4xspatie}" 

750 fori=ltol0: directoryl,900+10*i,1 
0:forj=lto50:nextj:directoryl,10 
00- 10 *i, 10 :next 
760 cr=cr+2*sq 
770 goto790 
780 gosub570 

790 gosub560:printen®;"{neer}{rechts}" 

;nl$;cn$;ca®;"{GROEN}{neer} nog 
een spel ? j/n{2xspatie}" 

800 geta®:ifa$=””then800 
810 ifa®="n”thenend 
820 ifcr>0then80 

830 printen®;ca®;”{1.blauw}{4xspatie} 
platzak !":end 

*** EINDE LISTING *** 



ÖREGEL 1 

1 

REGEL 

360 

220 

REGEL 

2 

38 

REGEL 

370 

213 

REGEL 

3 

114 

REGEL 

380 

69 

REGEL 

4 

29 

REGEL 

390 

175 

REGEL 

5 

81 

REGEL 

400 

220 

REGEL 

6 

232 

REGEL 

410 

251 

REGEL 

7 

222 

REGEL 

420 

141 

REGEL 

8 

100 

REGEL 

430 

2 

REGEL 

9 

161 

REGEL 

440 

130 

REGEL 

10 

78 

REGEL 

450 

54 

REGEL 

11 

244 

REGEL 

460 

27 

REGEL 

12 

253 

REGEL 

470 

142 

REGEL 

13 

11 

REGEL 

480 

52 

REGEL 

14 

232 

REGEL 

490 

37 

REGEL 

15 

88 

REGEL 

500 

206 

REGEL 

20 

121 

REGEL 

510 

130 

REGEL 

30 

108 

REGEL 

520 

13 

REGEL 

40 

206 

REGEL 

530 

185 

REGEL 

50 

13 

REGEL 

540 

142 

REGEL 

60 

199 

REGEL 

550 

112 

REGEL 

70 

28 

REGEL 

560 

132 

REGEL 

80 

2 

REGEL 

570 

175 

REGEL 

REGEL 

90 

100 

107 

127 

REGEL 

580 

87 

REGEL 

110 

234 

REGEL 

590 

90 

REGEL 

120 

30 

REGEL 

600 

192 

REGEL 

130 

73 

REGEL 

610 

88 

REGEL 

140 

160 

REGEL 

620 

10 

REGEL 

150 

42 

REGEL 

630 

2 

REGEL 

160 

37 

REGEL 

640 

5 

REGEL 

170 

39 

REGEL 

650 

57 

REGEL 

180 

214 

REGEL 

660 

204 

REGEL 

190 

192 

REGEL 

670 

245 

REGEL 

200 

224 

REGEL 

680 

26 

REGEL 

210 

136 

REGEL 

690 

47 

REGEL 

220 

177 

REGEL 

700 

115 

REGEL 

230 

98 

REGEL 

710 

126 

REGEL 

240 

131 

REGEL 

720 

191 

REGEL 

250 

54 

REGEL 

730 

209 

REGEL 

260 

108 

REGEL 

740 

124 

REGEL 

270 

32 

REGEL 

750 

188 

REGEL 

28© 

145 

REGEL 

760 

8 

REGEL 

290 

252 

REGEL 

770 

41 

REGEL 

300 

35 

REGEL 

780 

41 

REGEL 

310 

211 

REGEL 

790 

205 

REGEL 

320 

11 

REGEL 

800 

101 

REGEL 

330 

41 

REGEL 

810 

91 

REGEL 

340 

146 

REGEL 

820 

16 

REGEL 

350 

85 

REGEL 

830 

66 


TEKENING 1 en 2 


Deze programma’s zijn ingezonden door:.helaas was er geen 

briefje bij. We plaatsen dit om te laten zien wat er met een heel 
klein programma voor de C-16 mogelijk is. 


tekening 1 

1 0 : 0,1 : 1,2 : 4,1 
10 1,1 
40 0, i.00 

50 forx=0to316step3 
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60 y=int(100+100*sin(x/40)) 

70 ltox.ytol , 100to65,190 ,-nextx 

*** EINDE LISTING *** 


ÖREGEL 1 
REGEL 10 
REGEL 40 
REGEL 50 
REGEL 60 


tekening 2 

1 0:0,1:1,2:4,1 
10 1 , 1 
40 0,100 

50 forx=0to316step3 
60 y=int(100+100*sin(x/40)) 
70 ltox,ytol,50:nextx 

*** EINDE LISTING *** 


REGEL 70 

18 

ÖREGEL 1 

30 

REGEL 

50 

213 



REGEL 10 

108 

REGEL 

60 

2 



REGEL 40 

211 

REGEL 

70 

17 
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checksum c!6 


10 rem **************************** 
***** 

20 rem syntax.checksum 
30 rem voor c-16 & plus/4 
40 rem 

50 rem syntax testen met ’sys 1536’ 


rem 

rem v.851128.16 


jan bodzing 


440 data 164,253, 96, 82, 69 
450 data 71, 69, 76, 32, 0 
460 data 0, 72,138, 72, 32 
470 data 225,255,240,251,104 
480 data 170,104, 96, -1 

»** EINDE LISTING *** 


rem **************************** 

* * # * * 

i=1536 :rem beginadres 

reada if a > =0then pokei , a : i = i + l: goto 
100 

prinf'data is weggezet" 
prinfcheksum printen met ’sys 1 
536 ' 


De checksum van 
de checksum volgt 
volgende keer. 


data 165, 43,166, 44,133 
data 31,134, 32,169,147 


31,134 

data 32,210,255,160, 0 

data 240, 3, 32, 73, 6 

data 32, 73, 6,208, 1 

data 96, 72,152, 32,131 
data 6,168,104,234, 32 
.data 81, 6, 32, 73, 6 

data 240, 12,201, 32,240 

data 247, 24,101,252,133 
data 252, 76, 37, 6,166 

data 252,169, 0,132,253 

data 32, 95,164,169, 13 
data 32,210,255,164,253 


76, 17, 
2,230 , 
96,162, 


255,164,253 
6,200,208 
32,177, 31 
0,189,123 
6 , 32,210 


data 255,232,208,245, 


data 73, 6 
data 6,132 
data 164,162 
data 32,210 
data 250,169. 


6,170 
132,253 


170, 32, 73 

253, 32, 95 

3,169, 32 
255,202,208 
0,133,252 
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Tempo-typen C-16 


Tempo-typen is een spel dat nogal lijkt op een onderdeel uit de 
Radarsoft typecursus. Als titel dus niet helemaal volgens de 
regels. Het programma laat een woord van rechts naar links over 
het beeld schuiven. Op een gegeven moment bereikt het woord 
een laserstraal en dreigt dan te worden vernietigd. Door de 
letters van het woord in te tikken vóórdat het de straal bereikt, 
wordt de vernietiging van het woord voorkomen en dit levert de 
punten op. Naarmate u beter en sneller gaat typen, wordt het 
spelniveau moeilijker. Een erg fraai programma dat niet in uw 
softwarebibliotheek zal mistaan. 


0 rem 1024 

10 readati i-f»t<>“ll"thend”d+ligotDl0 

20 dimwo*(d) 

30 vol 7 

40 color0,1:color4,1 

50 ri=1:kk=0:vo17 

60 print "CCLR-HOME3CWIT3C19xneer3E5xrech 
tslwilt je instructies (j/n) ?" 

70 char0,0,05,"Coranje3C12xspatie3t 
empo-type" 

80 char 0,0,08, " C ROOD] C 1 1 x spatielgeoia 
akt door" 

90 char0,0, 10, " CPURPERK9xspat ieledw 
in v. oostrom" 

100 char0,0, 13,"Cbruin3C24xspatie3" 

110 char0,0, 13,"CBEEL3C24xspatie!" 

120 getat:ifa$="n"then450 
130 soundl,500+kk,3:sound2,500—kk,3ak 
k-kk+riiifkk«10orkk«0thnnri»-ri 
140 ifa*<>" j"then120 
150 print" CCLR-HQME3"chr*(14) 

160 print "E2xneer3 WELKOM bij de eers 
te kennismaking" 

170 print" [neer! van het CRVS-aan3TEM 
PO-TYPECRVB-uit3 systeem. De opze 
t" 

180 print"Inoerl van dit spel is om s 
pelender wijs snel" 

190 pr i nt " tneer 3 te leren typen. Als 
je zo meteen gaat" 

200 print'Ineerl beginnen zal je op h 
et scherm enkele" 

210 print”Eneer3 gegevens zien staan 
die we stuk voor" 

220 pr i nt " Cneer 3 stuk gaan behandelen 

II 

• 

230 print"C2xneer3C3xspatie3CRVS-aan3 
DRUKCshift-SPATIE30PCshift-SPATIE3 
EENCshift-SPATIE3TOETS"s getksya* 

240 print" CCLR —HOME!" 

250 pr i nt " C2xneer 3 ten eerste : CRVS-aan3 
DECshift—SPATIE3ENERGY-TELLERCRVS-uit 
3. deze" 

260 print"Cneer3 geeft aan hoeveel en 
ergy je nog " 

270 prinfCneerl over hebt. De hoevee 
lheid energy neemt" 

280 print"[neer] af als een woord de 
lijn raakt 


290 print "[neer] teller op nul staat 


300 pr i nt " Cneer 3 lopen. CRVS-aan3 DECshift 


SPATIE3SCORECRVS—uit3—teller gee 


330 pr i nt " I neer 3 toe hoogst gehaa 
score. 

340 print"C2xneer3 CRVS-aan3 DRUKCshift-SP 
ATIE3 0PCshift-SPAT IE3EENCshift-SPAT IE 
3 TOETS CRVS-uit 3"sgetkeya* 

350 pr i nt"CCLR-HOME3C2xneer 3 CRVS-aan3 
DECshift-SPATIE3LEVELCRVS-uit3-me 
ter geeft aan op welk" 

360 print"Cneer3 speellevel je bevind 
t. Als er 50 of" 

370 print"Eneer3 meer tekens zijn weg 
getypt dan zal het" 

380 print"Cneer3 speellevel worden ve 
rhoogd. Naarmate" 

390 print"Cneer3 de speellevel toenee 
mt zal de lijn zich" 

400 prinfCneerl naar rechts bewegen. 

Als je begint mag" 

410 prinfCneerl je zelf het speellev 
e1 ingeven." 

420 prinfCneerl de C RVS-aan 3 T I JD C RVS-u i t 
3-meter geeft slechts een” 

430 prinfCneerl indicatie van hoelan 
g je speelt." 

440 pr i nt”C2xneer 3 CRVS-aan3 DRUKCshift-SP 
ATIE30PCshift—SPATIElEENCshift-SPAT IE 
3 TOETSCRVS-uit 3”igetkeyal:printchr$ 
(142) 

450 open2,0!print"CCLR-HOME3":charB,4 

,8, "welke speellevel wil jeC2xspatie3 
7 C 1 i n k s 3 " 

460 input#2,le*sle=val(le*)!close2 
470 i f1e<=0or1e = >17then450 
480 le = le-l:char0,0,1, "CRVS-aan3 rCCCC 
ccccccccccccccccccccccccccccccccc 
C-t " 

490 fort=2tol5schar0,0,t,"BC38xrechts3 
B " :nex t 

500 char0,0, 16,"hCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCf" 

510 fort = 17to23s char0,0, t, "BC38xspatie! 

B " : nex t 

520 char0,0,23," ‘•CCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCC J “ 

530 char0, 2, 17, "energy : ®®®m®®®®®®®® 

®m®m®m®nu®®®m®mm" :en=2B 
540 Char0, 2,18,“scoreC2xspatie3s 0000 
000 " 

550 char0,2,19,"hiscore: 0000000 " 

560 ch ar0,2,20,"levelC2xspatiel!C6x spatie 
3 01":gosub 800 

570 char0, 2,21, "CRVS-aan 3tij dCïxspatie3 
: 0 :00:00":restore 

580 t i*="000000":pudef"0" 

590 restore 5 fort“0tod:readwo*(t):next 

600 al»wol(int(rnd(1)ld))i**-al 
610 yl=int(rnd(1>*12)+3 

620 :fort*lto3B-len(a»)ia*=al+" "inent 

630 fort = 1 tol en(a*> 

640 soundl,115,1 

650 charB,11,21,"CRVS-aan3"rprintmid* 

(t i * , 2 , 1) ": "mid$ (til,3,2)"right* 

(t i *, 2) "CRVS-uit 3 " 

660 fork==lto3 irl-left*(a*,t) :charl,3 
9-t.vl.rl 


670 bl-mid*(al,1,1)igetctiifcl*blthen 


gosub 710 


680 ifle*2=39-tthenl020 


690 ifb*«" "then720irem score byhoude 


310 prinfCneerl de door jouw gehaald 


320 prinfCneerl C RVS-aan 3 DE C sh i f t-SP AT I E 


3HI—SCORECRVS —ui tl—tel Ier geeft d 


710 a*-right*(a*,len <a*)-1)ireturn 


720 rem score byhouden 


730 te=te+len(s*):fort=ito(len(s*)) 


740 sc»sc + le: char0, 11,18,"C RVS-aan 3" 1 
























PRINT-OUT C-16 • PRINT-OUT C-16 • PRINT-OUT C-16 • PRINT-OUT C-16 • PRINT-OUT C-16 


printu»ing"#######"jsc 
750 i f *c >h i thenh i »sc 

760 char@,11,19,"CRVB-aan3"sprintusing 
"#######"jhi 
770 sound 1,1000,2:next 

780 i f t e >50t hen t e = 0 s gosub800 1 rem leve 
1 hoger 
790 goto600 
800 printsle*le+lt 
810 if1e=>17then1e=le-1 
820 ifle=lthen950 

830 char0, <1e-1)*2-1,2,"C3xspatiel" 

840 char0, 1e*2-l,2 ," l t j " 

850 fort=3tol4 

860 soundl,500+tt5,5 

870 char@,(1e-1)*2,t," " 

880 char0, le*2,t,"B" 

890 sound 1,500-t*5,5 
900 next 

910 char0, (1e-1)*2-1, 15,"C3xspatie3" 

920 charO, le*2-l, 15, " r-H " 

930 char 0, (1e-1)*2-1,2, "C3xspatie3" 

940 char0, <1e-1>*2-1,15,"C3xspatie3" 

950 f or t **3t o 1 4 

960 ch«r0,ls»2,t,"B" 

970 next 

9B0 char0, 1 e*2-l , 2, " L -r J " 

990 char0, le*2-l, 15, " r-H " 

1000 char0, 16,20,“[RVS-aan]"sprintrightt 
< "0"+mid* (str* Ue),2),2)"CRVS-uit3" 

1010 return 

1020 rem woord heeft lijn gepasseerd 
1030 forqw=5to35 

1040 r*■»"[RVS-aan3 ,, +lef t* (at, t) icharl, 
39—t,y1,r* 

1050 sound1,500-qw,5: 

1060 r*«" CRVS-uit3 ,, +left*<a*,t>icharl, 
39-t,yl,r* 

1070 soundl,500 + qw, 5s 
1080 next 

1090 fora»ltolen(at) 

1100 ifmid*<a*,a,l ) ** " [ sh i f t-SPAT IE 3 " t hen 
1120 
1110 next 

1120 forqw=1tol en(s*) 

1130 ifpeek <3762+en>=102+128thenpoke37 
62+en,92+1281gotol170 
1140 sound3,en*10,5 

1150 ifpeek(3762 + en> =92+1281henpoke376 
2 + en,160sen = en-lipoke3762 + en, 102 + 
12 B 

1160 ifen=lthenl210 
1170 next 

1180 char0, 39-t, y 1 , '* CZWART 3 "sprintleft* 

(a•,t)"C WI T 3 " 

1190 char0, 39-t,yl,“CWIT3B” 

1200 goto600 

1210 Char0, 8,7,"CRVS-aan3je hebt geen 
energy meer.CRVS-uit3" 

1220 char0,1,9,“wi1 je het nog een kee 
r proberen <J/n>" 

1230 ri=li kk=0 

1240 geta*sifa*<>""then1240 
1250 geta$iifa*="j"thente=0sgotol290 
1260 soundl,580+kk,3:sound 1,500 —kk,3sk 
k=kk+ri:ifkk=100orkk=0thenri=-ri 
1270 ifaSO"n"thenl250 

1280 print"CCLR-HOME3 tot ziensend 

1290 le=0ssc=0: 

1300 goto30 

1310 rem data’s volgen nu 
1320 datahallo,cassette,boek,computer, 
stoel,buro,pen,potlood,band,plaat 
,asb ak,bed 

1330 datakussen,auto,wielen,muziek,raa 
_m,gordiin,verwarming,tijdschrift 


1340 datalamp,strijkijzer,kapstok,werk 
en,surfplank,vakantie,boekenkast, 
m tafel,huisdier 

1350 datamatteklopper,ijslollie,koffie 
,thee,schoolbord,pretpark,slaapmu 
ts,gehaktbal 

1360 datatas,iismuts,bezien,waardig,la 
mpenkap,kattebak,schoonmaken,kett 
i ng,broek 

1370 datakoptelefoon,telefoon,muur,lad 
e, b i j 1 

1380 dataonschuldig,maatschappij,veria 
ardag,schilderij,musea,kat,schoen 
en,pistool 

1390 datasherry,fles,ledematen,biljart 
en,schoonheid,wedstrijd,disketten 
,sigaret 

1400 datahuiswerk,dropjes,horizon,rech 
tbank 

1410 dataprullebak,zonnebank,bewindsma 
n,minister,glimlach,draagvlak,ver 
zorgingsgebied 

1420 datadienst,regellng,knorrig,moord 
dadig,tederheid,vrolijkheid,slaap 
zak,doorz ichtig 

1430 dataroekeloos,trap,kantine,1 o kaal 
,lessenaar,schemering,wegstromen, 
bitter 

1440 datapersoonlijk,bakoven,zwaluw 

1450 dataonmiddellijk,klerenkast,reken 
machine,deur,stekker,veer,agenda, 
afschuw 

1460 datawereld,aanwezig,hoeveelheid,o 
nderwerp,kapitaal,veroveraar,hoek 
igh e i d 

1470 datasleutel,toilet,wasbak,zeep,sc 
heerschuim,geld,kaptafel,telefoon 
, br i 1 

1480 dataaluminium,folie,kabel,televls 
ie,video,tuner,beurs,veiling,prin 
ter 

1490 dataverbazing,kleding,woedend,1uc 
hthaven,bromfiets,rationaal 

1500 datavoorziening,verkeer,stoplicht 
,regionaal,politiek,concurrentie, 
belangstel1ing 

1510 datawol kenkrabber,hoofdbrekers,st 
uur,g1 as 

1520 datahandeling,transport,richting, 
grondstof,fabriek,wegen,oordeel,v 
er sc h i 1 

1530 datagroter,aanwezig,ellendel ing,s 
tructuur,mogel ij k,wanneer,vervang 
ing 

1540 datafusie,meikweg, kartel, centra 
al,minachting,waarde,,weinig,gesc 
hiedenis,recht 

1550 datainitiatief,molecuul,president 
,resevoir,referdum,nationaal,cong 
r es 

1560 datameineed,produkt,rekening,risi 
co,voortbestaan,uitgeven,gemakkei 
ijk,vakbond 

1570 dataaandeel,werknemers,terminals, 
mobiel,mechanisering,revolutie,en 
er g i e 

1580 datarecorder,multimap,landkaart,f 
loder,kanon,reactor,bierglas,papi 
er,behang 

1590 datalijm,quotiënt,dimmer,explosie 
,expositie,recent,onbeschrijfel ij 
k,teneinde 

1600 dataonderzoek,educatie,duizelig,s 
tation,plein,trechter,balans,waar 
achtig 

1610 datavuil,verbranding,hanteerbaar, 
etage,garage,verdieping,exclusief 
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i m m 



i 1 inrol , aansturen, naa 


zen,quarantaine,dokt 
estelen,nikkel,gulde 
rdzee,nonsens,noodge 
■f taf el ,reglement,taa 


po typen / cl6 & plu 
r edwln van oostrom 
schiedam 



regel 

1450 

regel 

1460 

regel 

1 470 

regel 

1480 

regel 

1490 

regel 

1500 

regel 

1510 

regel 

1520 

regel 

1530 

regel 

1540 

regel 

1550 

regel 

1560 

regel 

1570 

regel 

1 580 

regel 

1590 

regel 

1600 

regel 

1610 

regel 

1620 

regel 

1630 

regel 

1 640 

regel 

1650 

regel 

1660 

regel 

1670 

regel 

1680 

regel 

1690 

regel 

1700 

regel 

1710 

read y. 




Morse C-16 


Een eenvoudig programma om morse signalen te maken. Een 
ingetikte letter wordt direkt door de computer in de bekende 
fluitsignalen omgezet. Het is niet echt gemakkelijk om de 
signalen te lezen. Men zal dan ook wel even moeten oefenen 
alvorens men de pieptonen kan terugfluiten. Overigens een 
leuke toepassing van de C-16 met zijn relatief eenvoudige 
sound-commando’s. 


rem morse / cl6 & plus4 
rem door ste-fan wieman 
rem uit goirle 
rem 1026 


vol 8:print"CCLR-HOME]C5xneer ]C7xrecht 

s]letter?[2xneer]" 

getkeya*:i f a$=" "theniea 

a=asc(a$)-64 

ifa<lora>26thenl30:elsel60 

print” CCLR-H0ME]C6xneer]C5xspatie] 

doe alleen letters” 

f orte«ltol000i next 

print” CCLR-HOME]"s goto 100 

ifa>10anda<21thenl90 

i-f a>20then200 

onagoto210,230,250,270,290,310,33 
0,350,370,390 







BHMHÉWWWI 

. - ... .o. . éi-ftf. ..?' *** 




.. «iliSI WS90SSSM 





























































■ 




188 



PRINT-OUT C-16 • PRINT-OUT C-16 • PRINT-OUT C-16 • PRINT-OUT C-16 • PRINT-OUT C-16 


a=a-10!onagoto410,430,450,470,490 
, 510,530,550,570,590 

a=a-20ionagoto610,630,650,670,690 

,710 

b* = " . C" 

t1 = 1 : 12 = 2 ï g o t o730 
b* = " C ...” 

tl=2:t2»lit3-lit4-ligoto730 
b*="C . C ." 

t l=2s 12-1it3 = 2it4=l!go10730 
b*="C . .« 

tl=2lt2»llt3=l!goto730 
b$=" ." 

11 = 1 : goto730 
b*=" . . C 

t 1 = 1:t2=l:t3 = 2:t4=l:goto730 
b*=“C C ." 

t l=2it2 = 2l13=1sgoto730 
b * =". . . 

t1=1it2=llt3=lit4=ligot0730 
b*=". 

tl=lit2=ligoto730 
b * = " . C CCshi'ft-SPATIElC" 
t1 = 1:t2 = 2:13 = 2:14=2! goto730 
b* = "C . C" 

11=2!t2=l:13 = 2:got0730 
b S = " . CCshi-ft —SPATIE] . . " 

11 = 1it2 = 2:t3=l:t4 = l!got0730 
b*="CCshi-ft-SPATIE3C" 
t l=2it2 = 2!goto730 
b* = "C 

11=2!t2=l!goto730 

b*» M CCshi-f t-SPATIEÜCCshi-f t-SPATIE] 

C" 

11=2!12 = 2:13 = 2!got0730 

b*=". CCshift—BPATIElCCshi-ft —SPATIE! 


11 = 1:t2 = 2i13 = 2 1 14=1igoto730 
b*="CCshift-SPATIE3CCshift-SPATIE! 
. C" 

tl=2it2 = 2i13=1!14=2 ! got0730 
b*=". C ." 

11 = 1it2 = 2:t3=l i goto730 
bt="..." 

t1=1it2=lit3=ligot0730 
b*="C" 

t 1=2:goto730 
b*=". . C" 

11 = 1:12=1!t3 = 2:goto730 
b $ =". . . C" 

11 = 1 it2=lit3=l:t4 = 2igot0730 
b * =". C C" 

11 = 1:12 = 2:13=2: goto730 
b*="C . . C" 

11=2:t2=lit2=l!t3 = 2:goto730 
b*=”C . C C" 

tl=2:t2=l:t3=2:t4=3:goto730 

b$ = "CCsh i-f t-SPATIElCCshi-f t-SPATIE3 
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720 t1=2:t2=3it3=lit4=ligoto730 

730 print"C 2x spatie3“;a*;" = "jb*:print 


Abonnement 
op dit blad? 


740 tl=tl*10!t2=t2*10!t3=t3*10it4-t4* 
10 

750 volB:soundi,900,tlisoundl,1017,5: 

soundl,900,t2:soundl,1017,5 
760 : sound 1,900,13:sound 1, 1017,5! 

soundl,900,t4: sound 1, 1017,5 
770 ■forte=ltol00:nextte:clrïgotol00 


Bel gratis 

06-0224222 
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Een van de sterke punten van de CBM-128 is zijn mogelijkheid om 80 karakters per 
regel weer te geven. Dat betekent een resolutie van 640 x 200 punten. Het is dan ook 
heel jammer dat Commodore er niet voor gezorgd heeft dat de bit-map instructies voor 
het 40-koloms scherm ook in de 80-koloms mode werken. Dit is echter betrekkelijk 
eenvoudig zelf te verwezenlijken, en Peter Heinckiens gaat in op de basistechnieken 
daarvoor. 

Hoge Resolutie op het 80- 


koloms scherm 
van de C-128 

door Peter Heinckiens 

D e beeldresolutie, dus het aantal aan te sturen punten 
en daarmee de mate van detaillering van het beeld is 
bij de 128 tamelijk goed. De VDC-videochip doet het 
heel goed en vormt eigenlijk de basis van de 
"serieuze” toepassing. 

Wanneer we nu die VDC-chip zodanig willen gaan aanspreken, 
dat we wat van de bekende C-64 effecten ook op 80 koloms 
kunnen bereiken, moeten we dus weten hoe die chip valt te 
adresseren, en welke commando’s we kunnen geven. Dat is 
helaas geen zaak, die in Basic valt op te lossen, hier gaan we op de 
machinetaal-toer. 

Adresseren 

Een van de eerste verschillen tussen de VDC-chip (de chip die 
voor het 80-koloms beeldscherm zorgt) en de welbekende VIC, is 
de manier van adresseren. Waar men bij de VIC rechtstreeks het 
betreffende register kan aanspreken, moet dit bij de VDC indirect 
gebeuren. Dit doet men door middel van de adressen $D600 en 
$D601. In $ D600 plaatst men het nummer van het register dat 
men wil aanspreken (bits 0 tot 5). Met behulp van deze geheugen- 
plaats kan men ook onderzoeken of de processor reeds klaar is 
met zijn laatste opdracht: zo ja, dan is bit 7 nul en anders is deze 
bit ”geset”. 

Het adres $D601 wordt gebruikt om de data door te geven: via dit 
adres leest men of schrijft men naar het register. 

Dit alles vertaald naar een programma geeft ons de volgende 
twee routines: 

PLAATS STY $D600 ; registernummer in SD600 
LOOP BIT $D600 ; test bit 7 

BPL LOOP ; indien geset: nog niet klaar 
STA $0601 ; plaats de data in $D601 
RTS 

LEES STY $D600 
LOOP BIT $D600 
BPL LOOP 

LDA $D601 ; lees de data in $D601 
RTS 



De bitmapmode 

De bitmapmode van de VDC verschilt wel enigszins van die van 
de VIC : het geheugen is hier namelijk niet in rijen van 8 verdeeld, 
met als gevolg dat het veel gemakkelijker te adresseren is. Verder 
zit dit 16 KB geheugenstuk in een RAM, die speciaal voor de VDC 
gereserveerd is, en enkel toegankelijk is via indirecte adressering: 
in register 18 en 19 plaatst men het adres dat men wil aanspreken 
(HI/LO), en de data komt in register 31. 

Het aanschakelen. 

Het inschakelen van de bitmapmode gebeurt d.m.v. register 25: 
bit 7 (TEXT) daarin moet ”geset” worden en ook moet bit 6 (ATR) 
"gecleard” worden. Deze laatste zorgt er voor, dat alle karakters 
monochroom weergegeven worden. Dit is weer nodig omdat het 
kleur-geheugen overschreven wordt door het HiRes-scherm. 
Deze twee operaties kunnen gecombineerd worden, door in 
register 25 de waarde 128 te plaatsen. 

AAN LDY #$ 19 ; register 25 

LDA #$ 80 ; met 128 laden 

JSR PLAATS 

RTS 

Het beeldscherm wissen 

Daar het geheugen bijna 16K groot is (640/8 * 200 bytes om 
precies te zijn), moeten we dus 16K bytes nul maken. Dit gebeurt 
d.m.v. het volgende programma: 

WISSEN LDX #$ 40 ; 16K = 64 * 256 BYTES 
LOOP LDY #$ 12 ; register 18 (update Hl) 

TXA ; plaats Hl-byte 
JSR PLAATS 
LDY #$1F ; data-register 
LDA #$00 ; adres met nul vullen 
JSR PLAATS 
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DEY ; wordcount-register 
JSR PLAATS ; vullen met S00 
DEX ; Hl : = HI-1 
BPL LOOP ; volgende 256 Bytes 
RTS 


Indien u de bovenstaande routine nauwkeurig bekeken heeft, zult 
u zich ongetwijfeld afgevraagd hebben of het niet nodig is om ook 
de LO-byte van het update-adres aan te passen. Dit wordt echter 
vermeden door gebruik te maken van het wordcount-register : 
door dit met 0 te laden, wordt een heel blok van 256 bytes ineens 
gewist. 

Deze methode heeft wel een nadeel : soms wordt niet heel het 
scherm gewist. Dit is echter makkelijk op te vangen : roep de 
routine twee keer aan. 

START JSR WISSEN ; roep eerste maal aan 
JMP WISSEN ; roep tweede maal aan 


Uitschakelen 

Om de bitmapmode uit te schakelen, moet de TEXT-bit gecleard 
en de ATR-bit terug geset worden. Ook moet de karakterrom 
(CHARROM) terug gecopieerd worden (d.m.v. de routine op 
$CE0C). We krijgen dus: 

UIT LDY #$19 ; register 25 
LDA #$40 ; laden met 64 
JSR PLAATS 

JMP $CE0C ; kopieer CHARROM 

Een pixel aanschakelen 

En dan komen we nu aan het belangrijkste deel van ons pro¬ 
gramma: Het aanschakelen van een welbepaald punt. Zoals 
reeds gezegd, is bij de VDC het schermgeheugen niet in rijen van 
acht verdeeld, zodat de correcte byte gevonden wordt door de 
volgende formule: 

BY = INT (X/8) + Y*80 

Hoe vinden we dit nu? Daar we per byte acht pixels kunnen 
controleren, vinden we dus de correcte byte door de x-coördinaat 
te delen door acht, en het resultaat naar beneden af te ronden. 
Bijgevolg vinden we dat er per regel 640/8 = 80 bytes nodig zijn. 
We vinden de correcte blok bytes door de Y-coördinaat met 80 te 
vermenigvuldigen, wat ons dan bovenstaande formule geeft. De 
geheugenplaatsen in onderstaande routines worden als volgt 
benut: 


eerste/tweede : X-coördinaat LO/HI 
derde : Y-coördinaat 

a. Bereken INT(X/8) (resultaat in eerste/tweede) 

PHA ; X-LO in stack 

LSR tweede ; deel Hl-byte door 2 

ROR eerste ; en plaats carry in LO-byte 

LSR tweede 

ROR eerste 

LSR tweede 

ROR eerste 


b. Bereken Y*80 (resultaat in accu/vierde) 


LIJH #*00 


CO N I 


:: a r r V id I. s s e n 
?erst berekenen we 


b ï h 

i er-de 

Hl- 

TiV’te van 

V#5 is r 

LOR 

....UV 

derde 

#*04 

V n 

daar 

--.ar accu 

% 4 maal 

V 

RDC 

derde 

bl -i 

op te 1 1 er¬ 


RUU 

JONT 

ind 

en nodi!= 

H1 --byte 

1. NC 

,'ierde 

met 

1 verhol 

en 

jlc 

:*f£ V 

JNE 

-OOP ; 

cart 

tel 

i nd 

•y wisser 
er •..-•er- 1 a 

en niet 

9 er» 

klaar : 


RSL ; nu vermeni9 vuidi3en we heb 

ROL vierde ; resultaat met- 2t4 = 16 
ROL 

ROL v1erde 
RSL 

ROL v i erde 
RSL 

ROL vierde 


c. Bereken BY 
(resultaat in derde/vierde) 

a c c u + L O v a. n I N T C X / Ö > 
r e s u 11 a a t i n d er de 
Hl van IHTCX/8> 

+ Hl van V*Ü0 +c-s.rry) 
resuitaat in vierde 


STR derde 
LOR tweede 
RDC vierde 


Nu dienen we in die byte nog enkel de correcte bit te berekenen, 
en dit gebeurt door middel van de volgende formule: 

BI = 7 - (X AND 7) 

Immers: we vinden de gezochte bit door de rest van de deling van 
X door 8 te beschouwen: 

X - INT (X/8)*8 

Nu beginnen we de bits echter van rechts te tellen: 
76543210 

dus wordt de formule: 

BI = 7 - (X - INT(X/8)*8) 

De laatste term hierin vraagt redelijk veel rekenwerk, en doet dus 
de vraag rijzen, of er geen eenvoudiger methode bestaat om de 
rest van de deling te vinden. Die bestaat inderdaad: voer een 
logische ”AND” uit tussen X en 7. Stel dat we bijvoorbeeld de rest 
van 30/8 zoeken, dan krijgen we: 

0 0 0 1 1 1 1. 0 
HHO 0 0 0 0 0 1 1 1 


0 0 0 til & l l @ 



hetgeen ons dus inderdaad 6 oplevert. Bijgevolg wordt de 
uiteindelijke formule: 

BI = 7 - (X AND 7) 

Dit levert ons het volgende programma op: 


BI PLR ha.*. 1 X-LO van stack 

RNO #*07 ; X RNU 7 

STR eerste Plaats resultaat in eerste 

LOR #*07 

SBC eerste .; 7 - <X RNO 7 > 

ÏRV ; resultaat in V 


Nu hebben we dus de byte en het bitnummer gevonden, en 
dienen we nog enkel die betreffende bit te "setten”. In BASIC zou 
dit als volgt gebeuren: 

POKE BY, PEEK(BY) OR 21 BI 

Dit alles vertaald naar machinetaal geeft ons: 

a. Bereken 21 Bi (resultaat in eerste stukje listing) 


2161 LOfH #*01 
GPV #*00 
BEQ GOH I' 
LOOP HSL 


2T61 is minstens 1 
V = 0 ? 

•ia : klaar 
accu maal 2 
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ÜEV 


; 

ver» 1 nder te 11er 


Ei HE 

LOOP 

t 

VOO '■ doe nogmaals 

GOH» 

STB 

eerste 

t 

resultaat, in eerste 

b. Voer de POKE uit 



KÜKE 

LÜV 

#3-12 


UPDRTE - Hl 


LOR 

vierde 

t 

instellen met vierde 


J WK 

plrrts 




1 NV 


; 

UPDATE - LU 


LDtt 

derde 

Ol üOTC 

; 

instellen met derde 


LDV 

rülrl t o 

#$lf= 

; 

haal de waarde uit h 


JSR 

LEES 

; 

DfiTH - register 


ORR 

eerste 

t 

OR met 2161 


PHft 


; 

bewaar dit 


LDV 

12 

; 

zie hoSer 


LDR 

vierde 




JSR 

PLAATS 




I NV 





LÜR 

derde 




JSR 

PLAATS 




PLR 


; 

haal de nieuwe waard 





van stacK 


LDV 

m- 1F 

; 

Plaats die in het ad 





bepaald 


JSR 

PLAATS 


door derde/vierde 


RVS 


Het programma 

De bovenstaande routines vindt u hieronder samengevoegd tot 
een programma. De assembler-listing kunt u direct met de 128- 
monitor intypen. Daar sommigen dit prefereren, heb ik ook een 
BASIC-lader bijgevoegd. Denk erom dat u het programma weg¬ 
schrijft voordat u het runt. De machinecode alleen schrijft u als 
volgt weg: 

BSAVE "MINIGRAPH - M.C”, P0B00 TO P0BC5 
Listing 3 is een demo-programma: dit tekent een sinusoide. U 
kunt vanzelfsprekend ook een andere functie ingeven. 

Tenslotte nog een programma, dat een aantal hierboven behan¬ 
delde za e*Z*lustreert. Het programma MINIGRAPH tekent een 
sinusoide op het scherm, maar je kunt zelf natuurlijk andere 


Abonnement 
op dit blad? 

Bel gratis 

06-0224222 

HP Teleservice: 
elke dag tot 20.30 uur 
(ook in het weekend) 


functies gaan ingeven. Voor het werken met dit programma zijn 
een aantal SYS commando’s nodig. 

Het aanschakelen en wissen van de bitmap gaat met SYS 
DEC(”0B18”). 

Het uitschakelen van de bitmap gaat met SYS DEC(”0B3A”) 
Het plotten van een punt met SYS DEC(”OB49”),X-LO,X-HI,Y 
X-LO en X-HI worden als volgt berekend'. 

X-LO= X and 255 X-HI = X/256 • 



VIZL4WRITE 

PERSONALWORD PROCESSOR 




EDITING 

- copy, move, delete, find etc. 

- tot 240 karakters per lijn 

- documenten tot 56K (20 DIN A4) 

- merge van teksten v. andere WP 

- glossary ruimte, snelle insert 

- ingebouwde calculator 




FORMATTING 

- ”what you see is what you gef 

- formaat lijn gebruikt voor TAB 
MARGES, IDENTATION en kolommen 

- symbolen herinneren TABS etc. 

- tijdelijke kantlijn rechts en links 
automatisch aligneren 

- ’TRUE NEWSPAPER” kolom¬ 
men, met instelbare breedte 


PRINTING 

- multiline headers & footers 

- automatische pagina nummering 

- mail merge 

- CENTRON. & RS232 & CBM interf. 

- proportional printing 

- printer profiles aanpasbaar 


INTEGRATED SPELLING CHECKER 



Verkrijgbaar bij de dealers van: 


(Üfe easv computinG 

PO Box 9 ■ Woluwe 4 • B-1150 BRUSSEL ■ Tel. 02/660.63.90 


BON: 


Ik wil meer informatie over 


VIZASTAR □ 
VIZAWRITE □ 


Naam: 


Adres:. 


Postcode: 


. Plaats:. 


(Dealer aanvragen welkom) 
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SOFTWARE ★ SOFTWARE ★ SOFTWARE 


Spiky Harold 

Dit spel, ook van Firebird, is alweer niet 
veel soeps. Het lijkt er op dat er na Elite, het 
grote succes van dit softwarehouse, alleen 
nog maar waterige aftreksels van oudere 
spellen gemaakt kunnen worden. Ook bij 
dit programma zijn de graphics tweedi¬ 
mensionaal en weinig geanimeerd, de mu¬ 



ziek is matig en het spelidee (ook dit spel 
speelt in een doolhof) is niet origineel. Al 
met al kunt u dit programma beter niet 
aanschaffen. • 


Countdown to Meltdown 

Dit Mastertronicspel behandelt een tegen¬ 
woordig helaas populair onderwerp. Al 
weer een ongeval in een kerncentrale en 
de reactorkern dreigt te smelten. Leidt uw 
8 robots door de ruim 2000 kamers op 8 
verschillende niveaus (de constructeurs 
van de centrale waren blijkbaar niet goed 
wijs, vandaar natuurlijk het ongeval) naar 
de kern. Daar dienen de remstaven ge¬ 
vierd te worden. Tevens zitten er nog wat 
lastige indringers in het gebouw. Laat de 
robots hen tijdig uitschakelen voordat zij 
zelf het slachtoffer worden. 

Een boeiend C-64/C-128 spel met matige 
3D graphics voor ca. ƒ12,- • 


Scarab 

Scarab is een beeldadventure van het 
softwarehouse Geposoft. Een beeld- of 
actie-adventure is een programma 
waarbij er niet, zoals bij een 'normale’ 
adventure met behulp van tekst gecom¬ 
municeerd wordt. Met de joystick wordt 
te kennen gegeven wat er gebeuren 
moet. 

Het verhaal van Scarab speelt in het oude 
Egypte. De hoofdrol in dit spel heeft de 
ongelukkige, die door een gemene priester 
van de farao Amenhotb III in een scarabee 
(mestkever) is veranderd. Om het verhaal 
helemaal compleet te maken is deze sca¬ 
rabee opgesloten in een pyramide, en het 
is de bedoeling om eruit te komen. Dan zal 
hij weer aan het normale leven kunnen 
deelnemen. U begrijpt het al, dit is een 
doolhofspel in een pyramide. 

De kwaliteit van de "graphics” vinden we 
vrij matig, want de plaatjes zijn, afgezien 


Dit fraaie programma werd ontwikkeld 
door Melbourne House. Dit soft¬ 
warehuis is vooral beroemd om de 
grandioze Oosterse vechtsport spellen 
die het op de makt brengt. 

Bij Asterix, de bekende stripheld uit de 
romeinse tijd, wordt ook aardig gevochten. 
De kracht, die de dappere galliërs tot nu 
toe behoedde voor overheersing door de 
romeinen komt niet van Oosterse wijsheid 
of kruiden, maar wordt ontleend aan de 
bekende toverdrank die bereid wordt door 
de druide. Er dreigt echter iets mis te gaan, 
want de magische ketel voor de super- 
drank is gebroken en de stukken zijn weg¬ 
geraakt. Aan Asterix is de taak om de 
stukken bij elkaar te zoeken en de zaak tot 
een goed einde te brengen. Hij wordt hier 
ook bijgestaan door Obelix, als er maar 

genoeg everzwijn voorhanden is. 

Het spel is dus een zoekspel, een actie- 
adventure', met mooie, geanimeerde grap¬ 
hics. Behalve het adventuredeel kent het 
programma ook een ”fight mode”, waarin 
de Romeinen die Asterix tegenkomt, in 
elkaar geslagen dienen te worden. In die 
mode worden de figuurtjes wat groter 
weergegeven, zodat het dan een echt 
vechtspel is. 

Het op zoek gaan naar de stukken van de 
ketel gebeurt in een fraaie driedimensiona¬ 
le omgeving, de goed herkenbare figuren 
kunnen daar hun gang gaan. De "platte¬ 
grond" van de adventure is behoorlijk 


van de laadplaat, tweedimensionaal en 
niet zo goed geanimeerd. Het spelidee, 
een doolhofadventure, is en blijft goed, niet 
erg origineel, maar het ontsnappen uit een 
doolhof is een van de betere computer 
uitdagingen. 

Al met al is het een redelijk leuk spel, maar 
we vrezen dat de ervaren speler er vrij 
gauw op uitgekeken zal zijn. 

Caverns of Xydrapur 

Ook van Geposoft is het spel ’Caverns of 
Xydrapur’. Dit programma is alweer een 
actie-adventure maar hier een wat afge¬ 
zaagd spelidee. Alweer moet men z’n weg 
vinden door een grottenstelsel maar nu 
met het doel de mensheid te redden van 
de gemene onderaardse beschaving in de 
grotten. 

De uitvoering is niet best: weinig kleur, 
tweedimensionaal en niet geanimeerd zijn 
de beschrijvingen die voor de meeste pla¬ 
ten passen. • 


groot: de gebeurtenissen spelen zich na¬ 
tuurlijk af in het dorp en de omliggende 
romeinse legerplaatsen, maar het is zelfs 
mogenlijk om bijv. Rome te bezoeken. 



Voor de Asterix en Obelix-liefhebbers is dit 
spel een ’must’, maar we denken dat de 
kwaliteit van het programma ook anderen 
wel zal bevallen. • 


Asterix and the magie Cauldron 
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Basicode-3 


Nieuwe kans voor programmeertolk 

Er is een nieuwe versie van Basicode. In overeenstemming met de traditie krijgt deze 
nieuwe en geheel verbeterde computertolk het volgnummer drie mee. De eerste twee 
versies zijn alweer vergeten. Dat wil zeggen, er is wat onenigheid geweest tussen NOS 
en uitgeverij Kluwer over deze versie. 


W anneer hobbyisme en commercie samen gaan, komen er wel eens meer 
problemen. Basicode-3 heeft in ieder geval heel wat meer te bieden dan 
zijn beide voorgangers samen. Voor diegenen die nog niet weten waar 
het over gaat: Basicode-3 is een tolk tussen verschillende computer- 
soorten. Het maakt het mogelijk om volgens de Basicode-3 voorschrif¬ 
ten gemaakte programma’s in elke deelnemende computer te laden en te runnen. 


Een geheel andere aanpak voor Basicode, 
deze keer. De oudere Basicodes moesten 
worden besteld via de NOS door overma¬ 
king van een bepaald bedrag. Het bandje 
werd dan thuis gestuurd. Er werd een 
groot boek meegestuurd met daarin de 
eigenschappen van Basicode en handlei¬ 
dingen voor alle betrokken computersoor- 
ten. Je zult zeggen, alleen voor insiders 
dus. Dat was natuurlijk niet echt zo, maar 
het leek er wel beetje op. Basicode is 
daardoor waarschijnlijk nooit werkelijk 
aangeslagen bij het grotere programme¬ 
rende publiek. Jammer eigenlijk. 

Uitgever 

Deze keer gaat dat geheel anders lopen. 
Althans het gaat er op lijken, dat de makers 
en medewerkers van Basicode (nu in een 
stichting ondergebracht) er deze keer wat 
meer uit willen slepen. Het cassettebandje 
draagt het Kluwer-embleem en ook het 
bijbehorende boekwerkje is door Kluwer 
uitgegeven. Nu is zo’n boek natuurlijk in 
goede handen bij een uitgeverij met een 
goede reputatie op het gebied van techni¬ 
sche boeken. De markt op met Basicode-3 
lijkt het devies. Het is heel begrijpelijk, dat 
de makers van Basicode eindelijk eens 
een andere honorering willen ontvangen 
dan een pluim en een schouderklop, alleen 
is het dan de vraag of het Hobbyscoop 
radioprogramma dan niet in de commer¬ 
ciële knel komt. Maar aan de andere kant: 
Basicode-3 is een volwassen stuk pro¬ 
grammatuur en mag best uit de hobbyisti- 
sche sfeer. 

Een tal van computers doen mee: een 
aantal Acorn modellen (o.a BBC en Elec¬ 


tron), Apple, alle MSX-1 en -2 computers, 
de oude getrouwe Philips P2000 T en M, 
de Sinclair Spectrum, twee Spectravideo 
modellen en natuurlijk niet als allerlaatste 
de Commodore 64. De VIC-20 de PET en 
' 

TROS# 

Basicode 3 
programmate 
wekelijks bij 
TROS radio 

Een proef met het uitzenden van basi¬ 
code 3 programma’s door de TROS in 
de afgelopen zomer heeft zoveel posi¬ 
tieve reakties opgeleverd, dat de pro- 
grammaleiding van TROS Radio beslo¬ 
ten heeft op Radio 5 zendtijd vrij te 
maken voor een wekelijkse uitzending 
van deze programma’s. 

Als vaste tijd op Radio 5 is gekozen 
voor 17.41 uur. Basicode 3 staat zo 
geprogrammeerd aansluitend aan de 
Tros huiswerklijn. 

Het programma omvat steeds het com- 
puterbulletin en een nieuw computer¬ 
programma in basicode 3, het ’Expe- 
ranto' voor thuiscomputers. 

I De wekelijkse uitzendingen worden ge¬ 
produceerd in samenwerking met de 
Stichting Basicode 3. 


de CBM 3000, 4000 en 8000 series zijn 
helaas afgevallen. Die moeten het nog 
doen met versie 2 van Basicode. Van de 
andere merken zijn er ook een paar ver¬ 
dwenen en er zijn enkele bijgekomen. 

Protocol 

Wie zich met Basicode gaat bezighouden, 
zal zich moeten houden aan een bepaald 
protocol. Bepaalde Basic sleutelwoorden 
mogen niet worden gebruikt. Bepaalde 
handelingen mogen niet rechtsstreeks 
worden uitgevoerd maar moeten lopen via 
de vertaalroutines van Basicode. Het wis¬ 
sen van het scherm gaat immers op elke 
computer weer anders. De vertaalroutines 
liggen vast in de subroutines van de verta¬ 
ler. Wie in Basicode het scherm wil wissen 
programmeert dat met: GOSUB 100. Met 
GOSUB 210 wacht de computer tot er een 
toets wordt ingedrukt, enzovoort. Zo is er 
voor iedere handeling, die heel computer- 
specifiek is een subroutine. Gezien de 
primitieve Basic van de C-64 zou je Basi¬ 
code-3 wel kunnen beschouen als een 
Basic-uitbreiding! Veel routines maken het 
programmeren op de C-64 eenvoudiger, 
zoals de mogelijkheid om de cursor te 
positioneren, in hires een lijn te trekken, het 
schakelen van en naar grafische scher¬ 
men, openen en opslaan van files, het 
aansturen van de printer en nog vel meer. 
Alleen de muzikale kwaliteiten van de C-64 
worden geen eer aangedaan. Maar ja, Ba¬ 
sicode blijft een soort grote gemene deler 
en geen van de andere deelnemende com¬ 
puters is zo muzikaal ingesteld als de C- 
64. Tot slot, en dat is het belangrijkste, 
schrijft Basicode-3 het programma op een 
bepaalde manier naar de cassette. Dat 
gebeurt net zo als bij alle andere deelne¬ 
mende computersoorten. Daarin ligt ook 
het geheim van de uitwisselbaarheid. 

Boek-pak 

Het gehele pakketje bestaat dus uit een 
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boek en een cassette. Niet op disk, omdat 
de cassette natuurlijk het medium is, waar 
alle computers mee kunnen werken. En 
dat is een voorwaarde voor de uitwisse¬ 
ling. Er zijn immers zoveel diskformaten, 
dat zou niet zinnig zijn. Wel kunnen op de 
C-64 bestanden naar disk worden ge¬ 
schreven, maar geen programma’s. Op de 
cassette staan de vertaalprogramma’s 
voor alle computersoorten, gewoon in de 
standaardcodering van die bewuste com¬ 
puter. Na het inladen van de vertaler kan 
men met programmeren in Basicode-3 
beginnen. Op de cassette staan tevens 
drie demonstratie-programma’s , een gra¬ 
fisch programma, een muziekje en een 
adressenbestandsprogramma compleet 
met bestand (alle adressen van gebrui- 
kersverenigingen staan daar in). Ze geven 
een aardige indruk waartoe Basicode-3 
instaat is. 

Het boekje ziet er aantrekkelijk uit en bevat 
alle informatie voor de gebruiker. Zelfs een 
beginnende computergebruiker kan er¬ 
mee uit de voeten. Het boek doet omvang¬ 
rijk aan, maar het valt tegen: immers alle 
deelnemende computersoorten staan er 
uitgebreid in. Een C-64 gebruiker zal niet 
direkt het Apple-deel van het boek door 
gaan nemen. Maar gezien de doelstelling 
van het geheel is dit natuurlijk niet te 
vermijden. Ook lijkt het, of de auteurs van 


het boek (het zijn er vele) niet van elkaar 
wisten wat ze schreven. Veel verhalen 
worden dubbel gedaan en ook andere 
informatie, hoe belangrijk ze ook moge 
zijn, wordt meerder malen uitgebreid afge¬ 
drukt. Soms woordelijk identiek. Was de 
eindredakteur even wat afwezig, of is dit 
met opzet gebeurd. Als dat laatste zo was, 
onderschat de redakteur in kwestie de 
intelligentie van de computergebruiker 
ons inziens schromelijk. Een beetje com¬ 
puterhobbyist verdient meer respect! Erg 
goed en prima gedocumenteerd is het 
hoofdstuk over de voorbeeldprogram¬ 
ma’s. In de bijlagen staat ook voldoende 
interessante dingen te lezen. Al met al is 
het Basicode-3 duo (boek en cassette) 
zeer de moeite waard. 

V ertaalprogramma 

Waar liggen nu de toepassingsmogelijkhe¬ 
den van een dergelijk vertaalprogramma. 
Dat ligt ogenschijnlijk voor de hand, maar 

als je wat verder doordenkt.Behalve dat 

het inderdaad een uitwisselmogelijkheid 
biedt tussen verschillende merken compu¬ 
ters, is het voor de C-64 een uitstekende 
programmeerhulp. Voor andere compu¬ 
ters met een uitgebreidere Basic wellicht 
een stap terug. Voor die computers blijft 
alleen de eerste toepassing van kracht. Er 
is echter zoveel programmatuur in omloop 


voor evenvele soorten computers, dat een 
uitwisseling van software tussen gebrui¬ 
kers van verschillende computersoorten 
nauwelijks zinnig lijkt. Commerciële pro¬ 
gramma's zullen niet kunnen worden ge¬ 
bruikt en dan is er vaak voor elke compu- 
tersoort een eigen versie van het zelfde 
programma. Het zal dus nooit verder gaan 
dan het uitwisselen van zelfgemaakte soft¬ 
ware volgens het Basicode-3 protocol. Ik 
vraag me af op welk vlak een dergelijke 
uitwisseling enige zin heeft, behalve dan 
de vele uurtjes genoegen die de gebrui¬ 
kers van Basicode gegarandeerd zullen 
beleven. Misschien is er in het onderwijs, 
waar de computerchaos steeds verder 
doorwoekert, nog wat eer te behalen voor 
Basicode-3. Zoals het nu lijkt zullen de 
leerkrachten toch zelf aan het programme¬ 
ren moeten slaan, als ze de computer 
werkelijk gestalte willen geven in het on¬ 
derwijs. Veel educatieve uitgeverijen heb¬ 
ben de strijd om het marktaandeel van de 
educatieve software (dat er dus niet was) 
al opgegeven. Al die verschillende compu¬ 
tertjes op verschillende scholen zouden 
wel eens nut kunnen hebben van Basico¬ 
de-3. Voor de rest is Basicode echt iets 
voor hobbyisten, maar is daarom niet min¬ 
der waardevol. We wensen Basicode-3 
een lang en actief leven toe, met iets meer 
bekendheid dan tot nu toe het geval was. 


ELEMENTAIR 
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The elementary Commodore 128 
- met Basic 7.0 - 


De onmisbare handleiding voor Uw Commodore-128, 
door William B. Sanders. 


In prijs verlaagd , 

door goedkopere import: X1XL 


ƒ 



Bestellen kan alleen bij vooruitbetaling door overmaken van 
ƒ 35,- op giro 3157656 Infolist Huizen met vermelding van: 
The Elementary C-128. Na ontvangst van Uw overmaking sturen 
wij U het boek op. 

Ook in de betere computerwinkel. 


INFOLIST 

Postbus 1047, 1270 BA Huizen, tel.:02152-62343 
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De voordelen van programmeren in machinetaal 
boven programmeren in Basic zijn zo langza¬ 
merhand wel bekend. Omdat de codes niet 
vertaald hoeven te worden, maar direct door de 
microprocessor begrepen kunnen worden, loopt 
een machinecodeprogramma aanzienlijk snel¬ 
ler. Maar de snelheid is niet het enige voordeel. 
In machinetaal zijn ook andere zaken mogelijk 
die in Basic beslist niet mogelijk zijn. Hiertoe 
behoren onder andere de Basic-uitbreidingen. 


Tl JT_ _ m • 

Maak een eigen 
Basic-uitbreiding’ 



B ij het ontwerpen van Commodo¬ 
re Basic hebben de program¬ 
meurs van Microsoft met het 
oog op toekomstige uitbreiding 
op verschillende plaatsen aan 
de Basic-interpreter indirecte JMP- in- 
strukties toegevoegd. 

Dat is handig, want dat zijn de aangrij¬ 
pingspunten om zelf eens wat extra com¬ 
mando’s te gaan maken. Dat gaat in ma¬ 
chinetaal en we moeten dus weten hoe en 
waar we kunnen ingrijpen. De betreffende 
JMP’s maken gebruik van RAM- vectoren. 
Door de waarden van die vectoren te ver¬ 
anderen kan men ingrijpen in de loop van 
Basic en de computer naar een eigen 
routine laten springen. 

Adressen 

De betreffende vectoren staan van $0300 
tot $030B en we geven hieronder wat 
nadere informatie over wat we er mee 
kunnen doen. 

$0300-0301 Error Vector (normaal: 
$E38B) 

Als de computer een foutmelding wil ge¬ 
ven, of alleen maar de melding ’ready.’, 
wordt het x-register met een bepaalde 
waarde geladen en volgt een indirecte 
JMP ($0300). Als de waarde van x dan $80 
is, wordt alleen ’ready.’ geprint ($A474), bij 
waarden tussen 1 en 30 volgt een foutmel¬ 
ding ($A43A). Welke dit zijn kan men een¬ 
voudig testen met POKE 781 ,nSYS 58251, 
waarbij n een getal is tussen 1 en 30. 


Door de vector te wijzigen kan men zelf 
bepalen wat er moet gebeuren bij het 
optreden van een fout. Men kan zo bijvoor¬ 
beeld nederlandstalige foutmeldingen 
maken. 

Het voorbeeldprogramma geeft steeds het 
nummer van de fout i.p.v. de volledige 
naam: 

C000 LDA #$OB 

C002 STA $0300 (low byte) 

C005 LDA #$CO 

C007 STA $0301 (high byte) 

C00A RTS 
C00B TXA 
C00C BPL $C011 
C00E JMP $A474 (ready.) 

C011 PHA 

C012 JSR $FFCC (sluit kanaal) 

C015 LDA #$00 

C017 STA $13 

C019 JSR $AAD7 (regel wit) 

C01C LDA #$6B 
C01E LDY #$A3 
C020 JSR $AB1E 
(error) 

C023 LDA #$20 
C025 JSR $AB47 (spatie) 

C028 PLA 

C029 TAX (low byte) 

C02A LDA #$00 (high byte) 

C02C JSR $BDCD (print getal) 

C02F JMP $A46C (rest error-routine, 
o.a. in linenr. 

$0302-0303 Warm Start Vector (normaal' 
$A483) 


Na ”ready.” volgt een cursor en kan men 
een nieuwe opdracht ingeven, die dan 
uitgevoerd wordt. Klinkt logisch, maar in 
principe hoeft dit niet zo te gaan. Men kan 
namelijk door de Warm Start Vector te 
veranderen zelf bepalen wat dan gebeurt. 
Mogelijkheden zijn: een andere invoerrou- 
tine (bijvoorbeeld met funktietoetsen), al¬ 
lerlei trucs (zoals een AUTO-regelnummer- 
funktie) en direct mode commando’s. Ik 
wijs erop, dat voor het programmeren van 
genoemde trucs een goede kennis van de 
normale routine nodig is. Het is dan ook 
raadzaam deze te bestuderen. Het voor¬ 
beeld toont een utility, waarbij als men 
niets invoert, dus alleen een return geeft, 
de list verschijnt: 


C000 LDA #$0B 
C002 STA $0302 
C005 LDA #$C0 
C007 STA $0303 
C00A RTS 

C00B JSR $A560 (invoerroutine) 

C00E STX $7A 

C010 STY $7B (init CHRGET-pointer) 
C012 JSR $0073 (lees eerste char) 
C015 TAX 

C016 BNE $C026 (wél invoer) 

C018 JSR $E544 (scherm schoon) 

C01B LDA $2B 
C01D STA $5F 
C01F LDA $2C 

C021 STA $60 (bepaal begin list) 

C023 JMP $A6C3 (list-routine) 

C026 JMP $A490 (normale warm start) 
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$0304-0305 Tokenize Vector 
normaal: $A57C) 

Ingevoerde tekst wordt om geheugen¬ 
ruimte te sparen eerst ge’tokenize’d. Dit 
komt er op neer, dat elk keyword wordt 
vervangen door een ’token’ van één byte 
(met een waarde van $80 of hoger). Om 
een lijst te maken van deze tokens het 
volgende Basic-programma. Getoond 
worden waarde in hex en decimaal, start- 
adres van de betreffende routine en na¬ 
tuurlijk de naam van het keyword (run voor 
printer, run 110 voor scherm). 

100 OPEN 4,4:CMD 4 

110 A=41118:B=40972:T=128 

120 H$=”0123456789ABCDEF” 

130 D=T:GOSUB 270:PRINT T; 

140 P=PEEK(B)+256*PEEK(B+1) 

150 IF T<163 THEN 180 
160 IF T>179 AND T<203 THEN 190 
170 PRINTSPC(5):B=41042:GOTO220 
180 P=P+1 

190 D=INT(P/256):GOSUB270 

200 D=P-256*D: GOSUB 270 

210 PRINT” ”;:B=B+2 

220 P=PEEK(A):IF P>127 THEN 240 

230 PRINTCHR$(P);:A=A+1:GOTO220 

240 PRINTCHR$(PAND127):A=A+1 

250 T=T+1:IF T<204 THEN 130 

260 CLOSE 4: END 

270 H = (DAND240)/16:L=DAND15 

280 PRINTMIDI (H$,H + 1,1); 

290 PRINTMID$(H$,L+1,1); 

300 RETURN 

De waarde van deze vector veranderen zal 
niet vaak nodig zijn. Alleen als er veel 
commando’s aan Basic toegevoegd wor¬ 
den (zoals bij Simon’s Basic) is het belang¬ 
rijk om de commando’s te tokenizen om 
tijd te winnen bij het uitvoeren van een 
programma. 

$0306-0307 List vector (normaal: $A71 A) 

Als men op genoemde wijze zijn eigen 
tokens heeft gemaakt, moet men ook zor¬ 
gen dat deze tijdens het listen weer op de 
juiste wijze gedecodeerd worden. Daartoe 
is deze List Vector aanwezig. Steeds als 
een karakter of keyword uit een listing op 
het scherm moet komen, gebeurt dat via 
deze vector. Men kan hem ook gebruiken 
voor trucjes, bekend is het 'stopzetten’ 
van de listing door de shift-toets ingedrukt 
te houden. Het voorbeeld zet alle tekst uit 
een programma in het wit op het scherm: 
C000 LDA #$0B 
C002 STA $0306 
C005 LDA #$C0 
C007 STA $0307 
C00A RTS 

C00B BIT $0F (binnen ah-tekens?) 
C00D BPL $C02A (nee) 

C00F CMP #$22 (ah-teken?) 

C011 BEQ $C02A (ja) 


C013 STA $02 (bewaar) 

C015 LDA $0286 (kleur) 

C018 PHA 

C019 LDA #$01 (wit) 

C01B STA $0286 

C01E LDA $02 (haal terug) 

C020 JSR $AB47 (print char) 

C023 PLA 

C024 STA $0286 

C027 JMP $A700 (verder listen) 

C02A AND #$FF (herstel vlaggen) 
C02C JMP $A71A (list als normaal) 

$0308-0309 Character Dispatch Vector 
(normaal: $A7E4) 

De bekendste manier om een commando 
aan Basic toe te voegen gebeurt met deze 
vector. De 'character dispatch’ routine 
wordt telkens aangeroepen wanneer er 
een karakter gelezen moet worden om een 
commando uit te voeren. De normale routi¬ 
ne zit zo in elkaar: 

lees een karakter uit het programma met 
de routine CHRGET (JSR $0073) 
is het een : neem dan het volgende 
karakter; 

is het het einde van de regel, ga dan naar 
de volgende regel; 

is het een token (>$80) voer dan een 
commando uit; 

is het een letter, voer dan een let-com- 
mando uit; 

anders: geef een syntax error. 

Men kan op verschillende manieren ge¬ 
bruik maken van de vector: 
zelf bijgemaakte tokens kunnen worden 
verwerkt; 

men kan commando’s van meerdere 
letters definiëren; in nummer 5 (jaargang 
3) is hierover uitvoerig gesproken; 
men kan éénkaraktercommando’s ma¬ 
ken; zo kan men bijvoorbeeld het com¬ 
mando introduceren; 
men kan bestaande tokens een (andere) 
funktie geven; zo kan men een if...the- 
n...else-instruktie toevoegen; ook is het 
mogelijk om commando’s die normaal 
geen funktie hebben van een funktie te 
voorzien, bijvoorbeeld not heeft geen 
primaire funktie; 

trucjes, zoals tracé, dat bij ieder com¬ 
mando het regelnummer op het scherm 
zet. 

Mijn voorbeeld definieert het POS x,y com¬ 
mando, waarmee men de positie van de 
cursor op het scherm kan regelen. 

C000 LDA #$0B 
C002 STA $0308 
C005 LDA #$C0 
C007 STA $0309 
C00A RTS 

C00B JSR $0073 (chrget) 

C00E CMP #$B9 (pos? 

C010 BEQ $0018 


C012 JSR $0079 (nogmaals zelfde char) 
C015 JMP $A7E7 (normale char disp) 
C018 JSR $0073 (volgende char) 

C01B JSR $B79E (parameter) 

CO IE STX $D3 (kolom op scherm) 
C020 JSR $B7F1 (komma#parameter) 
C023 STX $D6 (regel op scherm) 

C025 JSR $È56C (cursorzaken) 

C028 JSR $0079 

C02B JSR $AAA2 (print routine) 

C02E JMP $A7AE (einde char disp) 

voorbeeld: POS 10,6;’COMMODORE” 

$030A-030B Evaluate vector (normaal: 
$AE86) 

Deze werkt ongeveer hetzelfde als de vori¬ 
ge. Alleen betreft het hier geen primaire 
commando’s, maar de verwerking van nu¬ 
merieke of alfanumerieke parameters (se¬ 
cundair). Funkties als INT en CHR$ wor¬ 
den hier verwerkt. De aanwezigheid van 
deze vector biedt ongeveer dezelfde mo¬ 
gelijkheden als de character dispatch vec¬ 
tor. Een voorbeeld is het toelaten van 
hexadecimale getallen. Hierbij wordt dan 
eerst getest op het $-teken, in welk geval 
het inlezen van het hex-getal kan be¬ 
ginnen. 

Het wat langere voorbeeld bij deze vector 
maakt een nieuwe funktie aan, EVAL 
(string), bestaande uit de letter e en het 
token val. De funktie verwerkt de string tot 
een numerieke waarde. EVAL(”3+4”) geeft 
zo 7 als uitkomst (vgl. de VAL-funktie, 
waarbij de uitkomst hiervan 3 is). 

C000 LDA #0B 
C002 STA $030A 
C005 LDA #$C0 
C007 STA 030B 
C00A RTS 
C00B LDA #$00 
C00D STA $0D (numeriek) 

C00F JSR $0073 (lees char) 

C012 CMP #$45 (letter e) 

C014 BNE $001E 
C016 LDY #$01 

C018 LDA ($7A),Y (lees char erna) 
C01A CMP #$C5 (val?) 

C01C BEQ $0024 

C01E JSR $0079 (nogmaals zelfde char) 
C021 JMP $AE8D (norm. routine) 

C024 JSR $0073 

C027 JSR $0073 (2x chrget) 

C02A JSR $AEFA (check ’(’) 

C02D JSR $AD9E (lees expressie) 

C030 JSR $AEF7 (check ’)’) 

C033 JSR $B3A6 (direct mode mag niet) 
C036 JSR $B6A3 (expr.^string) 

C039 CMP #$58 (te lang?) 

C03B BCC $0040 

C03D JMP $a571 (string too long) 

C040 TAY 
C041 LDA #$00 
C043 BEQ $0047 
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C045 LDA ($22),'Y (byte uit van de zojuist gecreëerde 


string) 

C047 STA $0200,Y (in buffer) 
C04A DEY 
C04B BPL $C045 
(alle chars van de string zijn nu 
gekopieerd naar de input- buf¬ 
fer; achter de laatste byte staat 
een nul) 

C04D LDA $7A 
C04F PHA 
C050 LDA $7B 

C052 PHA (bewaar chrget- 
pointer) 

C053 LDA #$00 

C055 STA $7A 

C057 LDA #$02 

C059 STA $7B (chrget-pointer- 

buffer) 

C05B JSR $A579 (tokenize 
buffer) 

C05E JSR $0073 

C061 JSR $AD8A (lees num. 

expressie) 

C064 PLA 
C065 STA $7B 
C067 PLA 
C068 STA $7A 
C06A RTS 

Voorbeeld van een basic-pro- 
grammaatje dat gebruik maakt 


Nog enkele exemplaren! 
Licht beschadigd. 

Prijs 

ƒ 17,50 

Rechtstreeks te 
bestellen bij Infolist 
met de bestelbon 
elders in dit blad. 



EVAL-funktie: 

100 INPUT’SOMMET- 
JE”;SOM$ 

110 UUIT=EVAL(SOM$) 

120 PRINT SOM$;”=”;UIT 
130 PRINTrGOTO 100 

Zoals u in de verschillende 
voorbeeldprogramma’s heeft 
gezien, zijn er nogal wat sub- 
routines die gedienstig zijn bij 
het programmeren van uitbrei¬ 
dingen en Utilities. Het is een 
goed idee om er een lijst van bij 
te houden die u in de loop van 
de tijd kunt uitbreiden. In ieder 
geval is het heel belangrijk om 
te begrijpen hoe bepaalde rou¬ 
tines werken (zoals b.v. de cha- 
racterdispatch routine), omdat 
men pas dan zijn eigen routi¬ 
nes erop kan aansluiten. 

In de handel zijn verschillende 
boeken die kunnen helpen met 
het onderzoeken van Commo- 
dore-Basic. Er zijn zelfs boe¬ 
ken met een complete rom- 
listing met uitleg. Maar het is 
natuurlijk veel leuker om het 
zelf allemaal uit te zoeken. 
Mare de Hingh • 


mputers staan op tafels 
van Projecta. 
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De tekstverwerker Easyscript is een van de rnl^sllgebruil 
Omdat echter een groot deel van die programm^gtepen ene 
verd met 1541 diskdrives, vragen er nogal eens wat lezers oï 
handleiding. Dat zou echter te veel ruimte vragen, maar Johan 
korte compilatie van. 

Easy script 


Kort overzicht van de belangrijkste en meest gebruikte funk- 
ties en instellingen van dit populaire tekstprogramma voor de 
C-64. 

In de tekst wordt met schuine streep (backslash) bedoeld het 
indrukken van de aangeduide letter na het indrukken van de 
funktietoets. 

Bijvoorbeeld F1/L betekent: Druk F1 daarna L. 

Bladspiegel 

Funktietoets F3 geeft Q (=command-mode). 

Instellingen in de command-mode moeten gescheiden worden 
door een dubbele punt. 

lmXX:rmXX = linker- en rechtermarge. 

vpXX = marge bovenkant. 

hlXX:hrXX = marges voor header en footer. 

plXX:tlXX = paginalengte en tekstlengte, 

ju = justification (uitlijnen van de tekst), 

cn = centreren van een stuk tekst, 

ra = tekst rechts aansluitend. 

Deze ju, cn en ra kunnen zijn 0 of 1 (uit of aan). 

XX = aantal posities cq. regels. 

De meest voorkomende instelling is: 
Dlm8:rm73:p166(of72):t160(of66):ju1 
pi 66 voor 11 inch en pi 72 voor 12 inch-papier. 

Header: kopregel 

QhdXX:tekst,tekst,tekst (tekst kan dus ook blanco zijn) 

t T T 

(left,center,right) 

XX = afstand in regels tussen HEADER en TEKST. 

Footer : voetregel 

E|ftXX:tekst,tekst,tekst 

XX = afstand in regels tussen FOOTER en END OF PAGE 
(bv.XX=4). 


Enhanced (dubbel) gaat net zo, maar dan met vierkante haakjes. 
Insert (invoegen) on/off :F1/I 

Capifals (hoofdletters) on/off : F5 

Omzetten in HOOFD- cq. kleine letters : F1/U 

Afbreekroutine: 

Harde spatie d.m.v. Shift+spatie (hierdoor worden bij het printen 
twee woorden als één woord gezien). 

Soft Hyphen d.m.v. Ft/- (aangeven dat bij justification het woord 
hier gesplitst mag worden, maar elders in de tekst als één geheel 
blijft staan). 


„ COMPUTER 

Bewegen door de tekst 

Dit heet editen en gaat met de cursor toetsen: 

Cursor keys: Rechts/Links/Omlaag/Omhoog 


ClrHome: 

Shift+CIrHome: 


Shift-F Return : Begin volgende regel 
<— +Cursor—> : Begin huidige regel 
Ctrl + W : Begin volgend woord 
Ctrl + <- : Eind volgend woord 
GOTO: 

F1/G/XX : Naar regelnummer XX 
F1/G/E : Naar einde tekst 
F1/G/999 : Naar einde beschikbare ruimte 
F1/Spatie : Volgend scherm 
F1/Shift + spatie : Vorig scherm 
F1/Cursor: Scrollen van de tekst 
Versnellen met SHIFT 
Pauze met SPATIE 
Stoppen met Run/Stop 

Wijzigen van tekst 

Delete (teken of ruimte verdwijnt) voor: 
Letter: 


Linksboven Scherm 
Begintekst 
Einde voorgaande regel 


InstDel 


Voorbeeld: Automatische paginanummering: 

Qft4:,- i 

Of voor een tekst onderaan iedere pagina: 

Qft4,-S EASY SCRIPT 

Aanduiding voor nummer @ d.m.v. F1 +shifted 3. 

Saven en laden 

F1/L (laden) : Vraagt om de File-naam. 

F1/F (saven) : Vraagt om de File-naam. 

Diskmode d.m.v. F4 (bv.Directory met $). 

Te printen tekst beïnvloeden 

Reversed (wit op zwart) : F1/(tekstF1/) 


Regel: F1/lnstDel 

Nogmaals InstDel of weer F1 

Gebied (range) : F1/D met cursor range aangeven + Return. 


Erase (ook weghalen, maar ruimte wordt blank): 

Letter: Overschrijven met spatie 


Regel: 

Paragraaf: 
t/m Einde tekst: 
Gehele tekst : 

Spatie tussenvoegen : 


F1/E/S 
F1/E/P 
F1/E/R 
F1/E/A 
Shift+InstDel 


Regel tussenvoegen: FI/Shift+InstDel 

Nogmaals Shift-F InstDel of weer F1 
Insert aan/uit: f-i/i 
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Blokken tekst verplaatsen of kopiëren 

Gebied (range) aangeven met F1/R/Cursor. 

Verplaatsen : Cursor op beginpositie F1 /X 

Kopiëren: Cursor op beginpositie Fl/A 


Bekijken van tekst 

(In Output-formaat) : F1/0/V 
Dan door de tekst bewegen met 
Commodore toets: 

Cursors horizontaal: 

F5: 

F7: 

Return: 

Spatiebalk: 

Spatiebalk opnieuw: 

Volgende pagina : 


Stoppen met RunStop 


C = 1 regel scrollen 
V = volgend scherm 


regel naar beneden 
van links naar rechts en v. v. 
20 kolommen naar rechts 
40 kolommen naar rechts 
Naar eerste kolom 
Snel scrollen 
Stopt scrollen 


Tabulatie 

Instellen tabulatie: cursor op gewenste positie FIAT dan H of V 
voor horizontale c.q. verticale TAB. 

Het laten zien van de Tab-posities gaat d.m.v. F1/P. 

Naar Tabulatie springen met F7 c.q. F8 naar horizontale of 
verticale tab. 

Verwijderen tabulatie: cursor op gewenste positie F1/C dan H of V 
om deze tab te verwijderen. 

Alle tabs weg met F1/Z dan H of V (hor. of vert.). 


Nieuwe pagina 
Qfpxx 

Als er minder dan XX regels over zijn, dan wordt er op een nieuwe 

pagina verder geprint. 

Dit wordt gebruikt als een volgend stuk tekst bij elkaar op één 
pagina geprint moet worden. 

Als XX=o wordt er altijd op een nieuwe pagina geprint. 

Notities 

Qnb’notities’ 

Hiermee kunnen opmerkingen in de tekst vermeld worden zonder 
dat deze geprint worden. 

Bv. boven aan een tekst: 

Hnb’filenaam=document’. 

Printen van tekst 

Fl/O/P : Stopt na elke pagina. Doorgaan met C. 

FI/O/CP : Print gehele tekst. 

Naar OutPut Video (op beeldscherm) d.m.v. V bij een page-break 
i.p.v. C. 

Printen stoppen met RunStop. 

Geselecteerde pagina printen. 

Fl/O/V 

Scrollen tot aan page-break voorafgaand aan de gewenste 
pagina. Druk dan P. 

Druk C voor de volgende pagina of V voor OutPut Video. 

Voor meer functies en instellingen raadplege men natuurlijk het 
instructieboek. • 

JohandeJong. 


Een Nederlandstalig boek (168 
pag.), waarmee u niet alleen inzicht 
krijgt in wat er met Basic 3.5 alle¬ 
maal mogelijk is, maar ook veel bre¬ 
dere computertoepassingen be¬ 
handeld worden en randapparatuur 
en software uitgebreid aan de orde 
komen. 



Prijs 


Het onmisbare boek 
voor iedere C-16 
bezitter, compleet met 
vele 

programmavoorbeelden, 
zoals een klein 
teks tberwerkings - 
programma. Direkt te 


ƒ 27,50 


plus ƒ3,- 
verzendkosten 


bestellen bij: INFOLIST Postbus 1047 

1270 BA Huizen 


VOOR DE C-16 
ook bruikbaar 
voor PLUS/4 


Van start met de C-16 in Basic 3.5 


tel.: 02152-62343 

Alleen levering na vooruitbetaling 

van ƒ 30,50. 

Gironummer 3157656 tnv. Infolist, Huizen. 


66 



dragen vaii Gebmikers. 



Ook nu weer gaat Jan Bodzinga 
in op vragen en problemen van 
onze lezers. 

Zijn rubriek blijkt zeer populair, 
maar laat dat u niet weerhouden 
uw vragen of opmerkingen in te 
sturen. Uiteraard zijn ook tips en 
handigheidjes van uw kant 
welkom. 

Bulletinbord 

Van vele kanten bereiken ons 
de verzoeken om gegevens te 
verstrekken over de inmiddels 
poulair geworden ’Bulletin- 
bords’. Men wil graag over 
zoveel mogelijk telefoonnum¬ 
mers beschikken om. waar dan 
ook, een telefonisch contact te 
bewerkstelligen met hulp van 
de Commodore. 


Met de regelmaat van de klok 
worden er nieuwe bulletinbord- 
services opgericht. Overal in het 
land zijn er hobbyisten bezig met 
het aansluiten van hun Com¬ 
modore of andere computer aan 
het openbare telefoonnet, waar¬ 
door computerfans die in het 
bezit zijn van een modem met 
deze computers kunnen com¬ 
municeren. Uit Ylaardingen 
ontvingen we een bericht van 
twee ’Sysops’, Arjan & Michel, 
dat vermeldde dat daar onlangs 
ook een BBS is gekomen. Hun 
Baudrate ligt op 300/1200 en het 
telefoonnummer is 010-4355154 
of 010-4341881. Ze zijn bereik¬ 
baar in het weekend, globaal van 
18.00 tot 22.00 uur. 


Commodore-printers 

H.Mulder uit Annen in Drente 
wil graag weten hoe hij vanuit 
Basic met z’n MPS 801 printer 
ook onderkasten (kleine let¬ 
ters) kan printen. 


De Commodore MPS 801 printer 
heeft net als bijna alle andere 
Commodore printers de eigen¬ 
aardigheid, dat er standaard 
alleen wordt geprint in karak¬ 
terset nummer 1. Dat betekent 
dat er normaal slechts hóófdlet¬ 
ters én grafische tekens kunnen 
worden geprint. Om de printer 
naar kleine letters om te schake¬ 
len waarbij in plaats van de 
grafische tekens hoofdletters 
worden geprint, moet de printer 
eerst op de volgende manier wor¬ 
den geïnitialiseerd: 

10 OPEN 7,4,7 
20 PRINT#7 
30 CLOSE 7 

Daarna zal de printer de tekst 
overeenkomstig de tweede; in de 
C-64 aanwezige karakterset op 
papier zetten, mits er op de 
bekende manier een communi¬ 
catiekanaal naar de printer wordt 
geopend. 

Audiosignalen meten op de C-64 

A. Zeeuw uit IJmuiden vraagt 
of er niemand is die beschikt 
over een programma waarmee 
audiosignalen uit de HiFi in¬ 
stallatie kunnen worden geana¬ 
lyseerd met hulp van de Com¬ 
modore 64 


Het lijkt me geen eenvoudige 
zaak om de analoge signalen die 
uit de versterker komen te kun¬ 
nen verwerken op frequentie en 
volume en dergelijke, met hulp 
van een eenvoudige computer. 
Wél zijn er hulpmiddelen op de 
markt, zoals de prachtige MAC 
64 van Maris Electronics in 
Apeldoorn (plm fl.800), waarmee 
analoge en digitale signaaltjes 


kunnen worden bekeken op het 
scherm van de C-64 en C-128. 
Dit instrument zal niet zonder 
meer zijn toe te passen op ge¬ 
luidssignalen, maar kan als oscil- 
loscoop z’n diensten ook in dit 
geval aanbieden. 

Misschien is er echter iemand 
onder de lezers, die in de gele¬ 
genheid is meneer Zeeuw te hel¬ 
pen. Graag reacties. 

Software- beveiliging 

Regelmatig bereiken ons ver¬ 
zoeken of we op de redactie 
niet een paar trucjes weten die 
het kopiëren en kraken van 
software tegengaan. Zo ook 
Jeroen Verhoeve. Hij ziet z’n 
eigen naam maar al te vaak 
vervangen door die van de 
kraker(s). 


Helaas zijn we op de redactie 
niet in de gelegenheid om voor 
iedere toepassing een beveiliging 
uit te denken en te verstrekken. 
Bovendien is het met de software 
voor de Commodore bijna niet 
meer mogelijk om alle bestaande 
No-copy, Break-in, Reset en 
weet-ik-wat-voor-software om 
andermans programma’s te kra¬ 
ken en te jatten, het hoofd te 
kunnen bieden. De praktijken die 
vele computeraars er in deze op 
na houden zijn zondermeer een 
forse klap voor de eerlijke handel 
in (betaalbare) programma’s. Het 
beste wat je kunt doen, om er 
zeker van te zijn, dat je eigen 
software in ieder geval een eer¬ 
lijk Copyright-bericht blijft 
houden bestaat uit twee delen: 

De naam van de maker via een 
’SCRAMBLE-CODE’ onleesbaar 
maken in ASCIE Dit betekent dat 
je er een eenvoudige rekensom 
op los moet laten, die de string 
tijdens het runnen decodeert en 
op het scherm zet. Je kunt bij¬ 
voorbeeld gebruik maken van een 
routine die alle letters ophoogt 
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met de positie in de string of iets 
dergelijks. 

Deze Basic-software kan in feite 
alleen publiek worden verspreid 
als je zelf zorgt, dat er aan de 
listing niets meer te veranderen 
valt. Alle ’NO-LIST’ mogelijkhe¬ 
den zijn inmiddels niet meer te 
gebruiken vanwege de vele soor¬ 
ten ’Final-Cartridges’ die hier 
weg mee weten. Het enige wat er 
overblijft is om je programma’s 
met hulp van een compiler zoda¬ 
nig te vertalen, dat er in ieder 
geval niet met de programma’s 
geknoeid kan worden. Op die 
manier bescherm je ook de code¬ 
ring van je copyright en even¬ 
tuele andere teksten. 

Meerdere printers op 8296D 

De heer H.Oonk uit Hengelo 
gebruikt een 8296D Commodo¬ 
re Business computer, waarop 
hij een MPP 1361 printer heeft 
aangesloten. Hij vraagt of het 
mogelijk is om tegelijkertijd 
meerdere printers op dit sys¬ 
teem te kunnen aansluiten. 


Om in de range van de (oude) 
Commodore serie business com¬ 
puters meerdere printers te kun¬ 
nen aansluiten, kan het beste 
gebruik worden gemaakt van de 
standaard IEEE 488 bus, waarop 
alle externe devices zijn aan¬ 
gesloten. Het enige wat er aan de 
tweede en volgende printers 
hardwarematig zal moeten wor¬ 
den gewijzigd is het device- 
nummer. De IEEE-bus is zo in¬ 
gericht, dat het in feite niet uit¬ 
maakt naar welk soort apparaat 
de paralelle data wordt gestuurd, 
de computer kent en herkent het 
device aan z’n nummer. Zo heeft 
de standaarprinter een device- 
nummer 4 terwijl een modem 
nummer 6 heeft gekregen en de 
floppydrive device 8. Er kunnen 
maximaal zo’n 250 devices wor¬ 
den aangesloten, dus qua aantal 
kunt u nog wel even voort. In 
principe kunt u iedere IEEE 
printer gebruiken. De extra 
printer moet door de dealer op 
device 5 worden gezet, waarna de 
software uiteraard de rest moet 


verzorgen. 

Om de tweede printer los van de 
eerste te kunnen aansturen moe¬ 
ten de opdrachten worden voor¬ 
zien van een OPEN-statement, 
waarbij device 5 wordt aange¬ 
sproken. OPEN 4,4 wordt daar¬ 
door dus OPEN 4,5. 

U moet er wel rekening mee 
houden, dat bij het gebruik van 
commerciële software het niet in 
alle gevallen mogelijk is om zelf 
het devicenummer van de printer 
te kunnen aangeven. Als beide 
apparaten het standaar device¬ 
nummer houden, dan zullen beide 
printer in principe tegelijkertijd 
dezelfde teksten uitprinten, waar¬ 
bij de de wachttijd gelijk is aan 
de tijd die de langzaamste printer 
nodig heeft om de tekst te prin¬ 
ten! 

Videobanken 

G .P .Goedhart uit Zoetermeer 
heeft o.a. problemen met het 
aansturen van de Videobanken 
op de C-64. Hij is op zoek 
naar een plek in RAM, waarbij \ 
ook nog van Basic gebruik kan 
worden gemaakt. j 


De Video Interface Chip van de 
64 is zo geconfigureerd, dat er 
een mogelijkheid bestaat om het 
Video-geheugen in banken van 
16KByte op 4 verschillende 
plaatsen in de RAM van de C-64 
neer te zetten. Het is onmogelijk 
voor de VIC-II om alle 64K aan 
RAM tegelijk te zien, maar met 
hulp van de zogenoemde Bank- 
switching komen we een heel 
eind. Om een bepaalde 16K bank 
als videogeheugen te kunnen be¬ 
stempelen moet er worden ge- 
POKEd. De bits die daarvoor 
moeten worden geconfigureerd 
zitten in de 6526 CIA #2 ofwel 
pokeadres 56578 (SDD02) en 

56576 ($DD00). Poort A moet 
daarvoor op OUTPUT worden 
gezet. Dit kan gebeuren met de 
opdracht: 

POKE 56578,PEEK(56578) OR 3 

Om nu één van de vier 16K ban¬ 
ken te kunnen kiezen moeten bit 


0 en 1 van adres $DD02 worden 
gezet op één van de vier moge¬ 
lijkheden die met het betreffende 
gebied in RAM corresponderen. 
De vier gebieden zijn als volgt 
ingedeeld: 

%00 (0) SC000-SFFFF (49152- 
65535) 

%01 (1) $8000-$BFFF (32768- 

49151) 

%10 (2) $4000-$7FFF (16384- 
32767) 

%11 (3) $0000-$3FFF (00000- 
16383) 

De banken kunnen worden gese¬ 
lecteerd door de waarde van de 
bits (0,1,2,3) mee te geven aan 
het commando: 

POKE56576,(PEEK(56576) 
AND252)OR BW 

BW heeft daarbij de waarde van 
de bits van de betrokken BANK. 
Als programmeur moet er altijd 
rekening mee worden gehouden 
welke videobank actief is. De 
VIC-chip haalt niet alleen het 
schermgeheugen, maar óók de 
plaats van de sprites en data- 
patronen (bit-maps) uit dit RAM 
gedeelte. Als er veranderingen in 
de videobank worden gemaakt 
moet er wel in alles met deze 
wijzigingen rekening worden 
gehouden. Standaard wordt de C- 
64 opgestart met BW als 0, dus in 
de laagste geheugenbank. 


80 koloms display 

Keer op keer wordt de vraag 
gesteld of er geen software be¬ 
schikbaar is. om de display 
van de C-64 te verbreden van 
40 naar 80 karakters per regel. 
Gelukkig hebben we nu ook een 
antwoord, naar het schijnt. 


We ontvingen een reactie van een 
lezer, die zegt een zelf geschre¬ 
ven oplossing voor dit probleem 
te bezitten. Het bestaat uit een 14 
KByte groot machinetaal-pro¬ 
gramma, waarbij de schermrouti- 
nes van 40 naar 80 tekens per re¬ 
gel worden gezet. Hoewel deze 
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software bijna de helft van de 
beschikbare RAM opeist, willen 
we dit toch aan de lezers melden. 
De auteur wil het programma te¬ 
gen een geringe vergoeding 
(fl. 15.-) verspreiden. Reacties op 
dit bericht naar: Helmut de Bont, 
Klooster-ekker 12, 5541 DB 

REUS EL. 

Checksum 

Dat niet iedereen tevreden is 
met de door ons gebruikte 
Checksum-routine blijkt uit een 
boze brief van W.Bos uit Veen¬ 
huizen. Hij typt nogal eens wat 
fouten in z’n lislings en ziet 
dan toch een correct Check¬ 
sum- getal. De waarde van ons 
Checksum programma ziet hij 
daarom niet zo zitten. 


De door Commodore-Info ge¬ 
bruikte checksum berust op het 
eenvoudige en snelle principe van 
het tellen, per Basic-regel, van 
alle aanwezige ASCII waarden. 
Van de som van deze getallen 
wordt alleen het LO-BYTE be¬ 
waard en af gedrukt, om geen al 
te grote getallen te krijgen. Dit 
programma moet worden gezien 
als een hulpmiddel, en zeker niet 
als een toverprogramma waarmee 
alle onnauwkeurigheden als 
sneeuw voor de zon uit een lis- 
ting kunnen worden gehaald. 
Daarom zal het zeker zo nu en 
dan gebeuren, dat er fouten in de 
listing worden gemaakt tijdens 
het intypen, die niet door de 
Checksum-routine kunnen wor¬ 
den achterhaald. Het devies blijft 
toch, dat de listings zo exact mo¬ 
gelijk moeten worden overgetypt. 
We hebben indertijd wel over¬ 
wogen om een betere routine te 
ontwikkelen, maar dat geeft nog¬ 
al wat problemen die de stan¬ 
daardisering van de listingver- 
werking in de weg staan. Jammer 
voor W.Bos, maar de checksum 
voldoet in de meeste gevallen 
prima. 

Numeriek probleem 

W.v.d.Velden uit Utrecht ont¬ 
dekt dat z’n 8-bits Commodore 
toch niet zo nauwkeurig kan 


rekenen als verwacht mag wor¬ 
den van een computer. Met 
name tijdens het rekenen met 
diverse afrondingen vertoont 
het apparaat afwijkingen. 


Bij het runnen van het volgende 
programma blijkt duidelijk wat 
het probleem precies veroorzaakt: 

10 FOR 1= 1 to 10 step .1 
20 PRINT I,I A 2 
30 NEXT I 

De getallen die nu door de com¬ 
puter worden geprint wijken in 
waarde af van ons verwach¬ 
tingspatroon. De oorzaak hiervan 
ligt in het feit, dat de meeste 
home-computers werken met een 
single precision floating point 
accumulator. Dit betekent, dat 
alle fractionele getallen, hoe groot 
of klein ze ook zijn, worden 
opgeslagen in 8 bytes. Als gevolg 
hiervan kan het niet anders, of 
de machine moet nogal fors aan 
het werk met afrondingen. Het 
feit dat we bij bovenstaande 
listing te maken krijgen met 
getallen, die bijna de juiste 
waarde hebben, zoals 4.39999999 
in plaats van 4.4 illustreert dit 
overduidelijk. In de lus van dit 
Basic-voorbeeld zal deze afron¬ 
ding weinig effect hebben; bij 
het werken met bedragen in een 
administratief programma echter 
des te meer! De oplossing van 
deze tekortkoming van de com¬ 
puter zullen we softwarematig 
aan moeten pakken. We kunnen 
de getallen die we door de Com¬ 
modore laten berekenen en ver¬ 
werken, zelf weer een juiste 
waarde geven, door een extra 
afronding te forceren. Door bij¬ 
voorbeeld de waarde die we 
nodig hebben te vermeerderen 
met een constante fractie, waar¬ 
door netjes naar boven wordt 
afgerond. Bij bedragen in guldens 
en centen helpt de volgende Ba- 
sicregel: 

A=INT((A+.005)*100)/100 
waarbij de variabele A het te 
bewerken bedrag voorstelt. Op 
deze manier wordt de waarde van 
A automatisch gestript van aller¬ 


lei ongerechtigheden en netjes 
met twee decimalen teruggezet in 
dezelfde veriabele. Voor getallen 
met meer digits achter de komma 
moet bovenstaande regel natuur¬ 
lijk worden aangepast. 

Sprite botsing 

DJ.Brandt uit Rijnsburg heeft 
een vraag over de manier 
waarop botsingen tussen diver¬ 
se sprites kunnen worden getest 
met hulp van Basic. Hij krijgt 
het zelf niet voor elkaar. 

Hoewel er in dit blad al veel over 
sprites is geschreven en ook het 
laatste artikel over dit onderwerp 
nog wel niet zal zijn verschenen, 
toch ook in het bestek van deze 
rubriek een korte uitleg over dit 
fenomeen. 

Zoals bekend kunnen er maxi¬ 
maal 8 sprites tegelijkertijd op 
het scherm van de C-64 worden 
getoond. Iedere sprite heeft daar¬ 
bij een volgnummer van 0 tot 7, 
waaraan de C-64 de sprite kan 
herkennen. Voor ieder van deze 
nummers is een bit gereserveerd 
in het ’botsing-adres’ van de C- 
64 RAM. Als twee sprites elkaar 
raken, bereiken we, dat de bij de 
sprites horende bit(s) van 0 naar 
1 worden 'gevlagd'. Deze bits 
blijven op 1 staan totdat er via 
PEEK wordt gelezen of er een 
botsing heeft plaats gevonden. 
Daarna worden de bits automa¬ 
tisch weer op 0 gezet. Dit 
’collision-register' vinden we op 
adres $D01E ofwel 53278 deci¬ 
maal. De spritenummers, die 
lopen van 0 tot 7 kunnen alleen 
worden getest door het 
overeenkomstige bit uit dit adres 
te testen. Onderstaande tabel 
geeft de AND-waarde voor ieder 
spritenummer, waarmee de test 
moet worden uitgevoerd: 

NUMMER _ WAARDE 

0 001 

1 002 

2 004 

3 008 

4 016 

5 032 

6 064 


7Z 






7 128 

Om nu te kunnen testen of een 
sprite in botsing is geweest met 
één van de andere sprites, kan 
worden volstaan met de volgende 
programmaregel: 

IF PEEK(53278)AND BW - BW 
THEN (botsing) 

BW geeft hier de variabele aan 
waarin de bitwaarde voor de be¬ 
trokken sprite volgens voorgaande 
tabel is opgeslagen. 

Om te testen of een bepaalde 
sprite in botsing is gekomen met 
de achtergrond hoeven we alleen 
het peekadres (53278) van 
bovenstaande regel te veranderen 
in 53279! De tabel met sprite- 
nummers en bitwaarden is ook op 
deze test toe te passen. Denk 
erom, dat na het uitvoeren van 
een PEEK op één van deze a- 
dressen alle bits weer op nul 
worden gezet, waarna een even¬ 
tuele botsing van een andere 


sprite, die tegelijkertijd heeft 
plaatsgevonden, niet meer kan 
worden getest. Het is dan ook een 
betere manier om de complete 
waarde van PEEK(53278) eerst 
aan een dummy-variabele toe te 
kennen en daarna déze variabele 
te testen op de hiervoor be¬ 
schreven manier. 


Numeriek 128 bord 

J.van de Vliet vraagt of de 
numerieke key-pad die op het 
toetsenbord van de C-12S zit 
ook is te gebruiken in 64- 
stand. 


Ik ben ervan overtuigd, dat er 
inmiddels wel een C-128 ge¬ 
bruiker in Nederland is, die erin 
is geslaagd het probleem van de 
heer v.d.Vliet op te lossen. Offi¬ 
cieel is er echter geen moge¬ 
lijkheid om de standaard confi¬ 
guratie van het C-64 bord om te 
zetten naar het numerieke pad op 
de 128. Commodore heeft dit 


’bewust’ op deze manier gedaan 
om de 128 in alles compatible te 
laten zijn met de oude C-64. 
Helaas blijken er elders wel 
enkele verschillen te zitten tussen 
de 64 en de 128, die we graag 
zouden willen ruilen voor een 
afwijking in compatibiliteit waar 
het de beide toetsenborden be¬ 
treft. 

Wel wil ik graag reacties van 
lezers, die hun oplossing voor dit 
probleem beschikbaar stellen. 


Abonnement 
op dit blad? 

Bel gratis 

06-0224222 
HP Teleservice: 
elke dag tot 20.30 uur 
(ook in het weekend) 



Postbus 186. 5900 AD Venlo 


Postbus 6685, 6503 GD Nijmegen 


uerkoopprijzen 

Rrtikel 


Incl BTW 

Epromkaart 

umverseelprint 

Universeelkaart 
64k-Kaart 

25EK Epromkaart 

No:200 
NO:210 
No:211 
NO:160 
No:810 
No:B32 

2x 4k,0k of lx 16k 
lx 8k,16k of kernal 8k 
Universeelprint compleet 16K 

2x 8k,l6k of 4 kBrnal's 

2x 32k menu gestuurd + kastje 

Bx 0k,16k,32k menu gestuurd 

27.50 

11.50 
15.75 
40.00 
75.00 

165.00 

•Ramkaart C16>ü 

No.250 

Uoor 0K.16K moduul of Kernal 

75.00 


IC-Tester 


No:2BO 74 serie ITL ic's 


163.50 


B mhz Bkanaals met uitdraai op printer 197.50 




liSWJsJBfraor CPN software te draaiian 


229.50 


Romextender No;100 

Romextender No:150 

Romextender*Dr No:151 
Romextender 32k No:152 
Romextender 12B No:153 
OerloopvoetJe No:154 

■ 5iraffli3H“JE:SS.L«ïTaB 


1 org. kernal 1 nieutue 
1 org. kernal 4 nieuwe 
1 org.kernal 4 nieuwe+schak. 

1 32k eprom voor 4 kernal’s 
voor 3 kernal’s CBN 120 
Uan 2B pins naar 24 pins 
voor het uitlezen van CBN 64 roms 


30.50 
45.00 
55.00 

38.50 

38.50 

17.50 

37.50 


■K fflgmm i a auaUMMM Uoor Speeddos * Printer tegslijkartijd 
■a—imM'iriWHITMIlll« Perellel-kabel v.Userpoort naar driva 
MaaCTBB jMWaK gMaafcWaï DisplOM mat lad's P60-PB7, PaP, Flagg 
■laaiiBaMBrnWWfflMlITiW Kabel voor HO/BO karaeter's CCW1 180) 


Hoekadaptor No:310 

Hoekadaptor No:311 

CartridgB-poort No:360 

Expander 

Diskettes S 1/4 of 

Diskette-info No;1275 

Diskette knipperNo:1250 

Diskette box No:12B5 


slot 
Slot ’ 
Slot ' 


af schakelbaar 


3.5 inch prijs opaanvraag 
50 stuks hoesjes 

ffiUEiKHVi a isküb kmiïeiri 

Uoor 50-3.5 disketten+schotten+slot 


13.50 

12.50 

■£flëËl 

29.95 


Fpromiiiiaaer No;612 CbOUWkit SXOl ombouw doDsi 

Epromwisser TL No;£13 TL voor Wissen uan eprom’s 
Eprompragrammer No:55 2,4,B,16,32k Bprom * moduulgenerato 

Lprom's 2732. 5764,27120 uT 27256 prijs opaanvraag 

Uitbreiding 64k : «BI Oio ( moduul-! 
joystickadaptor voer üo Cis 

p.p*.t.1«PC?*rrWT«T-* W/rsWMn*«fe rasse t.te-poort adapter vcar C16 
Exporimentser-kaartje vuur CJfi 

8 ifra 


59.00 

45.00 

197.50 


115.00 

17.50 

17.50 

17.00 


•Modem No:2100 

•Modem fluto üail No:2110 


300 baud erg/ansuer 
300 baud org/answer 


Uerkoopprijzen Artikel: 


Cartridgepaort- No:1200 
Connector 

Userpoort- No;1210 

cannector 

Jou3tick stekkerNo:1215 
Uaerpoortkap No:1220 
CBntronicstekkerNo:1230 


Jogstick-stekker ♦ kapje 


Inel BTW 

12.50 

9.00 

7.50 
7.50 

14.50 


TaxtoolvoetJe 
Experimenteer- 
Kaart 

Exp . Kaartje 

Exp.KaartjB 
Noduulkastja 


Nd: 1240 
No: 1260 

No: 1265 
No:1266 
No: 1270 


PrinterinterFaceNo;1400 
Uentilator Na:1235 


2B pins 40.00 
voor Cartridge/user-poort 22.50 

klein exp.kaartje voor Cartndge-poort 9.75 
klein exp.kaartje voor User-poort 9.75 
Moduulkastjs BU. voor No:210 7.50 
Quick-shot II 17.50 
Mouse voor CBN 64 of 12B 125.00 
ÏOOÜ werkend met alle programma's 197.50 
ventilator 37.50 


Moduul generatorNo:1500 
Hardcopy-moduul No:1510 
Sima-moduul G-l No:1520 


Moduul turbo-tape/disk-tu 


32.50 

50.00 

rbo/dos/Old 32.50 


•FloppyFlash No:2000 

Floppyflash ProFNo:2013 
Floppyflash CompNo:2012 
FloppyflashkabelNo.2014 
•Speeddos + ORG No:2001 
Speeddos Prof. No:2015 
Spesddos Compl. No:2020 


10x sneller laden 3xsaven 169.00 
45/G0x sneller laden uitb. 199.00 
45/60x.snellar Compleet 325.00 
Uerbindings kabel voor Floppy-fla3h 95.00 
Orginele speeddos ♦ ♦ fcopy III 169.00 
45/60x sneller laden uitb. 199.00 
45/60x snBllBr laden 25xsneller saven 325.00 


33.50 

32.50 

NL-10 starprinter + interface commodore 

1050.00 

39.50 

32.50 

Amiga 512K No : 10010 

Amiga Uitbreid. No:10005 Uitbreiding 256k snelle ram's 

3595.00 

195.00 

22.50 

35.00 

COMMODORE IC’S 



Computer: 
6510/6526/956114 
6563R3 Uic 
6581 Sound chip 
4164 Ram 

Kernal/basic/char.Rom 


45.00 

110.00 

30.00 

7.50 

29.50 


Drive 1541: 

6502A of 6522 
325572 

KBrnal of dos Rom 


19.50 
45.00 

29.50 


OP DE IC'S EN EPRQn'S ZIT GEEN GARANTIE 


♦-AANBIEDING 
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UenlD 
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Alle prijzen zijn bxcI verzendkosten. 

Bij overboeking via giro of bank, zijn de verzendkosten F 7.00 

Onderrembours zijn de verzendkosten F 3-50 

Uoor belgie zijn de verzendkosten onderrembours F22.50 

Indien in voorraed heeft u onze produkten binnen een wBBk in huis. 
Prijswijzing voorbehouden. 

Handelsvooruiaarden Ged. bij da kamer van koophandel te 
L.U.E. 0430 
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In de erste aflevering van de serie "Zo zit dat..".behandelden 
we de "fysieke" werking van de seriebus. In dit deel gaan we 
ons bezighouden met het eigenlijke programmeren van de 
seriebus in machinetaal. Hierbij maken we gebruik van de 
Kernal ROM-routines in de Commodore 64, waarvan we die 
voor het versturen van een karakter hebben voorzien van 
commentaar. Als toepassing vervolgen we met een program¬ 
ma waarmee we de inhoud van de DOS-ROM’s van de disk¬ 
drive "zeer snel" in de computer kunnen laden. 

Zo Zit Dat 

Het programmeren van de seriebus 

door Sjoerd Bakker 


De seriebus, ook wel IEC of 
Commodore bus genoemd, is de 
belangrijkste schakel tussen de 
C-64 en de randapparatuur, voor 
zover die tenminste daarop 
werkt. Dat is voor de Commodore 
disk-drives en printers vrijwel al¬ 
tijd het geval. 

Bij de koppeling van de micro aan 
een ander apparaat via de seriebus 
kunnen we drie verschillende ni- 
veau’s onderscheiden. Ten eerste 
hebben we het "bit-niveau". Dit is 
het niveau van het fysieke commu¬ 
nicatieprotocol dat we in de vorige 
aflevering hebben behandeld. Zoals 
we toen zagen bestaat er een ver¬ 
schil tussen data-bytes, die met de 
ATN-lijn = hoog worden verzonden, 
en de opdracht-bytes die met ATN = 
laag worden verstuurd. In deze afle¬ 
vering gaan we ons bezighouden 
met het versturen van deze op¬ 
dracht-bytes, die bij ieder randappa- 
raat hetzelfde effekt veroorzaken. 
We communiceren dan op het 
tweede niveau. 

Bij communicatie op het derde 
niveau worden er tenslotte welis¬ 
waar data-bytes verstuurd, maar 
deze bytes worden door het rand- 
apparaat geïnterpreteerd als bytes 
die samen een opdracht in ASCII- 
code vormen. In het geval van de 
disk-drive gebeurt dit met de data- 
bytes die naar kanaal 15, het op- 
drachtkanaal, worden verstuurd. (In 
het voorbeeldprogramma maken we 
gebruik van de M-R opdracht.) En 
bij (Epson-) printers worden alle 
data-bytes die na een escape-code, 


CHR$ (27), binnenkomen, behan¬ 
deld als opdracht-informatie. Op die 
manier kun je bijvoorbeeld de on¬ 
derlijning van de printer aanzetten. 
Opdrachten van het derde niveau 
hebben alleen een betekenis voor 
een specifiek randapparaat. Het 
heeft natuurlijk geen zin om je disk¬ 
drive een onderlijnopdracht te 
geven, of de printer een blok infor¬ 
matie op disk te laten zetten. 

Opdrachten 

Er zijn "maar" zeven verschillende 
opdrachten van het tweede niveau. 
Deze opdrachten zijn onder te 
verdelen in twee groepen: de ei¬ 
genlijke opdracht-bytes LISTEN, 
TALK, UNLISTEN, UNTALK en de 


| OPDRACHT-BYTES 

WAARDE 

BETEKENIS 

%001XXXXX 

%010XXXXX 

$3F 

$5F 

LISTEN X 

TALK X 

UNLISTEN 

UNTALK 

« 1 

SECUNDAIRE 

ADRESSEN 

WAARDE 

BETEKENIS 

$FY 

$EY 

$6Y 

OPEN Y 

CLOSE Y 

VIA Y 


WAARBIJ X=APPARAAT-NUMMER 
EN Y=KANAAL-NUMMER 


Illustratie 1 


zgn. secundaire adressen OPEN, 
CLOSE en VIA (die laatste bena¬ 
ming is van ondergetekende). Bij 
het begin van de communicatie 
wordt eerst een eigenlijke opdracht 
verstuurd. Deze kan dan eventueel 
worden gevolgd door een tweede 
(Engels: second) byte: het se¬ 
cundair adres. 

Zoals uit bijgaand overzicht blijkt, 
dienen zowel de opdracht-bytes als 
de secundaire adressen te zijn 
voorzien van een parameter. Bits 7, 
6, en 5 van de LISTEN en de TALK 
opdracht-byte hebben betrekking 
op de soort opdracht (001 = LIS¬ 
TEN; 010 = TALK) en de bits 4-0 
geven het apparaatnummer aan 
(voor de seriebus: 4-31). Het ver¬ 
sturen van de byte $24 (%001 
00100) heeft dan bijvoorbeeld tot 
gevolg dat apparaat nummer 4, de 
printer, Listener wordt. Dat wil 
zeggen dat de informatie die door 
de computer daarna verstuurd 
wordt, uitsluitend is bestemd voor 
dit apparaat. 

Aangezien er meerdere apparaten 
tegelijk aan de seriebus kunnen 
hangen (doorlusbaar!) voorkom je 
zo dat informatie die is bestemd 
voor de printer bij de drive 
terechtkomt en omgekeerd. Voor 
TALK gaat wat dat betreft hetzelfde 
op. Als je de byte $48 verstuurt geef 
je uitsluitend apparaat nummer 8 
(de drive) de opdracht om Talker te 
worden, dus om informatie over de 
seriebus te versturen. 

UNLISTEN en UNTALK hebben als 
code de "vaste" byte-waardes $3F 
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ED40 

7S 



SEI 



EDA 1 

20 

87 

EE 

JSR 

$EE3? 


ED44 

20 

A9 

EE 

JSR 

$EEA9 


EÏÏ47 

B0 

64 


BCS 

$EDAD 


ED49 

20 

85 

EE 

JSR 

$EE85 


ED4C 

24 

A3 


BIT 

$A3 


ED4E 

10 

0A 


-BPL 

$ED5A 


ED50 

20 

A3 

EE 

JSR 

$EEA3 

«I 

ED53 

90 

FB 


BCC 

SED50 

J 

ED55 

20 

AS 

EI 

JSR 

$EEAS 


ED58 

B0 

FB 


BCS 

SED55 

J 

ED5A 

20 

AS 

EE 

^JSR 

$EEA9 


ED5D 

90 

FB 


BCC 

SED5A 

J 

ED5F 

20 

8E 

EE 

JSR 

$EE8E 


ED62 

A9 

08 


LDA 

#$08 


ED64 

85 

A5 


STA 

$Ab 


ED6S 

AD 

00 

DD 

LDA 

$DD00 

<r 

ED69 

CD 

00 

DD 

CMP 

$DD00 


ED6C 

D0 

F8 


BNE 

$ED66 

- 

ED6E 

0A 



ASL 



ED6F 

90 

8 F 


BCC 

$EDB0- 


EDY 1 

66 

85 


ROR 

$95 


ED73 

B0 

05 


r Bes 

$ED7A 


ED75 

20 

A0 

EE 

JSR 

$EEA0 


ED78 

D0 

03 

r 

- BNE 

$ED7D 


ED7A 

20 

97 

EE 

▼JSR 

$EE97 


ED7D 

20 

85 

EE L 

£ JSR 

$EE85 


ED80 

EA 



NOP 



ED81 

EA 



NOP 



EDÜ2 

EA 



NOP 



ED83 

EA 



NOP 



ED84 

AD 

00 

DD 
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$DD00 


ED87 

29 

DF 


AND 

#$DF 


ED89 

09 

10 


ORA 

#$10 


ED8B 

8D 

00 

DD 
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$DD00 


ED8E 

C6 

A5 


DEC 

$A5 


ED90 

D0 

D4 


BNE 

$ED66 

— 

ED92 

A9 

04 


LDA 

#$04 


ED94 

8D 

07 

DC 

STA 

$DC07 


ED97 

A9 

19 


LDA 

#$19 


ED99 

8D 

0F 

DC 

STA 

$DC0F 
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AD 

0D 

DC 

LDA 
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0D 

DC 

LDA 

$DC0D 

* 
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29 
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B0 
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- 
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.CHROUT ROM-ROUTINE SERIEBUS 


DATA Hl 
DATA LO 7 

NEE; DEVICE NOT PRESENT ESROE 
CLOCK Hl 

LAATSTE DATA-BYTE ? 

NEE 

DATA Hl ? 

NEE 

DATA LO ? 

NEE 

DATA Hl ? 

NEE 

CLOCK LO 

8 BITS UITVOEREN 
TELLER 

VASTE WAARDE ? 

NEE 

DATA Hl ? 

NEE: TIME OUT 
@-BIT ? 

NEE 

DATA LO C0-BIT) 

ONVOOEWAAKDELIJKE SPRONG 
DATA Hl ll-BIT) 

CLOCK Hl: BIT-WAARDE GELDIG 


DATA Hl 
CLOCK LO 
ZETTEN 

8 BITS UITGEVOERD 7 

NEE 

JA 

TIMER LADEN 
MET 1 MS. 

TIMER STARTEN 


TIME OUT ? 
JA 

DATA LO ? 

NEE 

JA 


en $5F. Omdat de computer maar 
één apparaat tegelijk informatie 
over de seriebus laat ontvangen of 
verzenden is het niet nodig om te 
specificeren welk apparaat moet 
ophouden met informatie te ont¬ 
vangen (UNLISTEN) dan wel te 
verzenden (UNTALK). De computer 
stuurt gewoon een van deze bytes 
over de seriebus en vertelt zo het 
apparaat dat op het moment actief 
is zijn oren te sluiten of mond te 
houden. 

Secundaire adressen 
De secundaire adressen OPEN en 
CLOSE dienen om files te openen 
en te sluiten. Het openen van een 
file komt er op neer dat de file in de 
administratie van het betreffende 
apparaat wordt opgenomen. De file¬ 
naam wordt geregistreerd en er 
wordt een l/O-buffer toegewezen. 


Door een file te sluiten wordt deze 
weer uit de administratie verwijderd. 
Van de VIA-byte zijn bits 5 en 6 wel 
gezet, ten teken dat het een se¬ 
cundair adres betreft, maar we 
hebben hier niet te maken met het 
openen of sluiten van een file. Deze 
byte wordt naar de drive verstuurd 
als we opdrachten naar kanaal 15 
(het commando-kanaal) willen 
sturen. Bij de secundaire adressen 
bevat alleen de linker nybble (bits 7- 
4) de eigenlijke opdracht. De 
rechter nybble (bits 3-0) heeft be¬ 
trekking op het kanaal-nummer. Het 
kanaal-nummer is van belang voor 
de toewijzing van een l/O-buffer in 
het randapparaat. Er zijn namelijk 
meestal meer kanalen (15) dan 
buffers in het apparaat. De opdracht 
$F0 aan de disk-drive heeft bijvoor¬ 
beeld tot gevolg dat een file via 
kanaal 0 wordt geopend, welke door 


de drive wordt gereserveerd voor 
het laden van programma’s. Met 
$F1 open je een file via kanaal 1, dat 
wordt gebruikt voor het saven van 
programma’s. En kanaal 15 (het 
commandokanaal) wordt dus toege¬ 
wezen na het versturen van de byte 
$6F. Zoals gezegd beschouwt de 
disk-drive de data-bytes die naar ka¬ 
naal 15 worden verstuurd als een 
specifieke disk-opdracht. Bij de 
behandeling van het toepassings¬ 
programma zullen we een voor¬ 
beeld van zo’n opdracht tegenko¬ 
men. 

Seriebus-routines 

Gelukkig hoeven we ons in de 
praktijk niet met bovenstaande, toch 
vrij ingewikkelde, materie bezig te 
houden. We kunnen gebruik maken 
van de algemene l/O-routines in de 
Kernal. Door vooraf aan te geven 
met welk apparaat we willen com¬ 
municeren (4-31) zoeken die al¬ 
gemene routines automatisch de 
benodigde seriebus-routines op en 
worden deze vervolgens uitge¬ 
voerd. Toch zullen we voor de 
volledigheid ook de seriebus-rou¬ 
tines even behandelen. (Zie 
illustratie 2) Als voorbeeld geven we 
de seriebus-routine voor het verzen¬ 
den van een byte van de computer 
naar een randapparaat. Deze staat 
in ROM vanaf $ED40. Om het com¬ 
mentaar dat rechts van de listing 
staat te kunnen begrijpen verwijzen 
we naar het artikel over de seriebus 
in de vorige aflevering van "Zo zit 
dat " in Commodore-lnfo nr. 6 van 
dit jaar waarin het seriebus-protocol 
op bit-niveau werd behandeld. Ver¬ 
der is het zo, dat de testvraag voor 
het voldoen aan een bepaalde voor¬ 
waarde altijd zo is gesteld dat er bij 
een nee-antwoord wordt gespron¬ 
gen. Als het antwoord ja is wordt 
het programma gewoon vervolgd. 
De sub-routines die worden aange¬ 
roepen hebben meestal betrekking 
op het 0 of 1 maken van een uit- 
voerbit in register $DD00, dan wel 
het naar de Carry halen van een in- 
voerbit. De routine $ED40 verzendt 
dus een karakter over de seriebus 
naar een aangesloten apparaat. Op 
zich is de routine echter onvolledig. 
Er wordt niet bepaald of de byte met 
ATN = laag of hoog wordt verzon¬ 
den en ook niet welke byte-waarde 
wordt verstuurd. De inhoud van $95, 
die telkens wordt geRORed voor 
het versturen van de 8 bits, kan na¬ 
tuurlijk elke denkbare waarde heb¬ 
ben. Vandaar dan ook dat routine 
$ED40 vaak door een hogere routi- 
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ne als subroutine wordt aangeroe¬ 
pen. Die hogere routine zet dan van 
te voren de te verzenden waarde in 
lokatie $95, en roept vervolgens 
$ED40 aan. 


Overzicht 

Hierbij een overzicht van alle speci¬ 
fieke seriebus-routines. We zullen 
ze even in het kort behandelen. 
SECOND verstuurt het secundair 
adres na LISTEN. 

TKSA (TalK Secundair Adres) wordt 
aangeroepen om het secundair 
adres na TALK te verzenden. Omdat 
het apparaat dan Talker moet wor¬ 
den en de computer Listener, kan 
men TKSA niet aanroepen na LIS¬ 
TEN of SECOND na TALK. Het zijn 
wezenlijk van elkaar verschillende 
routines. 

SETTMO (SET TiMe Out) wordt 
door de Commodore 64 niet ge¬ 
bruikt. 

ACPTR ontvangt een byte vanaf de 
seriebus. De informatie-overdracht 
vindt plaats van het randapparaat 
naar de computer. Het apparaat is 
dan Talker en de computer Listener. 
CIOUT verstuurt een byte over de 
seriebus. CIOUT begint niet op 
$ED40 omdat de bytes gebufferd 
worden verzonden (1 byte buffe¬ 
ring), wat moet worden geadmini¬ 
streerd. Wel wordt $ED40 natuurlijk 
aangeroepen. 

UNTLK zorgt ervoor dat de byte- 
waarde $5F (UNTALK) met ATN = 
laag over de seriebus wordt ges¬ 
tuurd. Het randapparaat moet ver¬ 
volgens stoppen met het verzenden 
van informatie. 

UNLSN heeft als gevolg dat de byte 
$3F (UNLISTEN) wordt verstuurd. 
Het apparaat moet hierna ophouden 
met luisteren. 

LISTEN verstuurt de byte LISTEN 
(met apparaatnummer). Het appa¬ 
raat moet zich gereed houden voor 
het ontvangen van informatie. 


TALK verstuurt tenslotte de byte 
TALK (met apparaatnummer). Hier¬ 
door wordt het apparaat Talker en 
kan het beginnen met het verzen¬ 
den van informatie. 


De praktijk 

Om het nog wat ingewikkelder te 
maken, roepen we bovengenoemde 
seriebus-routines dus nooit direkt 
aan. Zoals gezegd gebruiken we, bij 
wat voor communicatie dan ook, 
alleen de algemene l/O-routines. 
Deze roepen bij seriebus-l/O op hun 
beurt dan weer de betreffende se- 
rie-bus-routines aan. De algemene 
l/O-routines hebben we behandeld 
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Illustratie 4 


in Commodore Info jaargang 3 nr.2. 
We zullen de door ons gebruikte 
routines alleen voorzien van com¬ 
mentaar wat betreft bijzonderheden 
voor de seriebuscommunicatie. (Zie 
illustraties 4 en 5) 

Als voorbeeld zullen we een ma- 
chinetaal-programma gaan analy¬ 
seren dat de inhoud van de DOS- 
ROM’s in de disk-drive naar de 
computer haalt. Hierbij maken we 
gebruik van de "7 stappen voor 
communicatie", zoals besproken in 
nr. 2 van dit jaar. We zullen het pro¬ 
gramma uitvoerig gaan bekijken 
omdat de communicatie met an¬ 
dere apparaten in machinetaal op 
praktisch dezelfde wijze geschiedt. 
Het programma begint op $CE08. 
De lokaties $CE00-$CE07 bevat da- 
ta-informatie die we nodig hebben 
bij de uitvoering van het program¬ 
ma. We beginnen met de opdracht 
SEI, waardoor alle IRQ-interrupts 
worden verboden en het program¬ 
ma dus wat sneller loopt. Vervol¬ 
gens wordt de data-informatie van 
$CE00-$CE07 gekopieerd naar 
$(00)F8-$(00)FF. Dat is nodig omdat 
we gaan werken met pointers en 
variabele data-waardes. Vanaf 
$CE13 worden voorbereidingen ge¬ 
troffen voor de SETLFS-routine die 
op $CE19 wordt aangeroepen. Het 
file-nummer wordt 15 (A-register); 
het apparaatnummer wordt 8 (X-re- 
gister), wat de disk-drive betekent; 
en het kanaalnummer in de drive 
wordt 15 (Y-register), het nummer 
van het commando-kanaal. Na SET- 
LFS laden we het A-register met 
$00 en roepen we SETNAM aan. We 
geven hiermee te kennen dat we 
niet met een file-naam willen wer¬ 
ken. Dan roepen we OPEN aan, wat 
vooralsnog geen merkbaar effekt 
heeft. 

Grote lus 

We komen nu terecht in de "grote 
lus" van het programma, die wordt 
ingesloten door de breedste hori¬ 
zontale lijnen. Hierin geven we de 
disk-drive telkens opdracht om $80 
(128) bytes van het DOS-ROM op te 
zoeken en te versturen. In principe 
zouden we maximaal 255 bytes per 
keer kunnen opvragen maar helaas 
werkt dat, door een knullige bug in 
het DOS, niet bij pagina-overschrij- 
ding. De lus begint bij $CE24, waar 
we het X-register laden met 15 en 
we vervolgens CHKOUT aanroepen. 
Hiermee schakelen we file 15 in de 
computer op uitvoer naar de disk¬ 
drive. CHKOUT komt er op neer dat 
de LISTEN-byte (met apparaat- 


ADRES 

JMP NAAK 

NAAK 

OMSCHRIJVING 

$FF33 

SEBBS 

SECOND 

VERSTUUR SECUNDAIR ADRES NA LISTEN 

$FF9G 

$EDC7 

TKSA 

VERSTUUR SECUNDAIR ADRES NA TALK 

$FFA2 

$FE2i 

SETTMO 

ZET TIME OUT 

SFFA5 

&EE13 

ACPTR 

ONTVANG KARAKTER VAN DE SERIEBUS 

$FFA8 

$EDDD 

CIOUT 

VERSTUUR KARAKTER OVER DE SERIEBUS 

$FFAB 

$EDEF 

UNTL K 

VERSTUUR UNTALK 

$FFAE 

£FDFIi 

UNLSN 

VERSTUUR UNLISTEN 

$FFB 1 

$ED0C 

LISTEN 

VERSTUUR LISTEN 

■$FFB4 

$ED09 

TALK 

VERSTUUR TALK 

OVERZI 

CHT KEKNAL 

SEKIEBUS-ROUTINES I 


lllustratie 3 


78 




nummer) en het secundair adres 
worden verstuurd, in dit geval wor¬ 
den dus achtereenvolgens de bytes 
$28 (LISTEN apparaat 8) en $6F 
(VIA kanaal 15) met ATN = laag ver¬ 
zonden. De drive maakt zich nu 
gereed om informatie via het in¬ 
terne kanaal 15 te ontvangen. 
Overigens moet men het (compu¬ 
ter-) file-nummer 15 niet verwarren 
met het (drive-) kanaalnummer 15. 


10 FOR X=52736 TO X+8*12-l 
20 READ A: POKE X,A: NEXT X 
30 SYS 52744: END 
100 DATA 128,192,0,82,45,77,0,64 
110 DATA 120,162,7,189,0,206,149,248 
120 DATA 202,16,248,169,15,162,8,160 
130 DATA 15,32,186,255,169,0,32,189 
140 DATA 255,32,192,255,162,15,32,201 
150 DATA 255,162,5,181,248,32,210,255 
160 DATA 202,16,248,32,204,255,162,15 
170 DATA 32,198,255,160,0,32,207,255 
180 DATA 145,254,200,192,128,48,246,32 
190 DATA 204,255,165,250,73,128,133,250 
200 DATA 133,254,48,208,230,255,230,249 
210 DATA 48,202,32,231,255,0,0,0 
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Illustratie 5 

Het is weliswaar gebruikelijk om 
hiervoor via SETLFS eenzelfde 
nummer te kiezen, maar het hoeft 
niet. We hadden bijvoorbeeld ook 
met file-nummer 1 kunnen werken. 
Door het aanroepen van CHKOUT 
zoekt deze routine van de betreffen¬ 
de file namelijk automatisch het bij¬ 
behorende apparaat-nummer (8) en 
kanaal-nummer (15) op. 

M-R opdracht 

Vervolgens sturen we de inhouden 
van de geheugenplaatsen $FD-$F8 
naar de drive via de routine 
CHROUT. Dit zijn de data-bytes die 
we eerder hadden gekopieerd van 
$CE05-$CE00. Achtereenvolgens 
worden dus de waardes $4D, $2D, 
$52, $00, $C0, en $80 verzonden. 
De eerste drie bytes zijn ASCII- 
codes voor "M-R" (Memory-Read). 
Door deze opdracht naar het com- 
mando-kanaal te versturen kunnen 
we de inhoud van het drive-geheu- 
gen te weten komen. 

De volgende twee bytes die we 
verzenden vormen samen het 
(basis)- adres waarvan we de in¬ 
houd opvragen. In ons geval is dit 
adres $C000. Het DOS-ROM beslaat 
namelijk het geheugen-gebied $C0 
00-$FFFF. Van het adres $C000 
versturen we eerst de Lo-byte $00 
en dan de Hi-byte $C0. Dan ver¬ 
sturen we de laatste byte uit de op¬ 
dracht, $80, waarmee we aangeven 
dat we van $80 achtereenvolgende 
geheugenplaatsen de inhoud willen 
weten. 


De totale opdracht heeft als gevolg 
dat de drive nu de inhouden van 
lokaties $C000-$C07F op gaat 
zoeken. CLRCHN zorgt er daarna 
voor dat de UNLISTEN-byte wordt 
verstuurd. Dan veroorzaakt CHKIN 
het versturen van de TALK-op- 
dracht, waarna de drive dus Talker 
wordt en informatie kan gaan ver¬ 
sturen. Via CHRIN worden de $80 
bytes nu de computer binnenge¬ 
haald. 

De pointer op $FE/$FF geeft aan 
waar ze in het geheugen komen te 
staan. Dat wordt dus vanaf $4000. 
Daarna krijgen we weer CLRCHN 
die nu Untalk verstuurt. Vervolgens 
worden de pointers $F9/$FA en 
$FE/$FF met $80 verhoogd om 
hogere geheugenplaatsen in de 
drive te adresseren en deze ook 
hoger in het geheugen van de 
computer te zetten. Als de inhoud 
van $F9 "positief" wordt (bit 7 = 0) 
zouden we toe zijn aan lokatie 
$0000 in de drive, en hebben we 
dus alle DOS-geheugenplaatsen 
gehad. "Alle files" worden dan 
geCLOSEd. Zijn we nog niet aan 
het einde, dan springen we weer 
naar het begin van de lus en halen 
we de volgende $80 bytes de com¬ 
puter binnen. 

Inefficiëntie 

Schrijvende over de disk-drive, die 
we als voorbeeld randapparaat bij 
de seriebus-communicatie hebben 
genomen, moet me van het hart dat 
ik me tijdens de voorbereiding van 
een artikel zelden zo heb geergerd 
als deze keer. De inefficiëntie van 
het DOS is al bijna even schrik¬ 
barend als de onoverzichtelijkheid 
ervan. En als dat nou nog zou re¬ 
sulteren in een supersnelle drive... 
alla. 

Maar dat is dus ook niet het geval. 
Des te schrijnender wordt zoiets als 
je weet dat de traagheid voor 90% 
is te wijten aan de communicatie- 
routines voor het versturen en ont¬ 
vangen van "kale" byte-waardes. 
Door het vervangen van pakweg 
100 bytes in het DOS en de com¬ 
puter zou de snelheid al kunnen 
verdubbelen, zonder dat je de 
specificaties voor de seriebus over¬ 
schrijdt. Maar ja... de turbo-produ- 
centen varen er wel bij, zullen we 
maar denken. Tot zover dit artikel 
over het programmeren van de se¬ 
riebus in machine-taal. Voor bijzon¬ 
derheden wat betreft het program¬ 
meren van de drive verwijs ik naar 
"Het grote floppy-boek" van (het 
wordt eentonig) Data Becker. De 


mogelijkheden voor het werken met 
de drive vanuit Basic worden hierin 
echt op een voortreffelijke manier 
behandeld. Het boek bevat verder 
ook de DOS ROM-listing, voorzien 
van redelijk deskundig (maar vaak 
wel wat al te summier) commentaar. 
Voor het programmeren van printers 
zul je de handleiding bij het betref¬ 
fende apparaat moeten raadplegen. 

S.B. • 


Puntad ’64 

Voor aanvang van het schooljaar 
1985/1986 schaften J.Custers, do¬ 
cent aan de Bisweide MAVO in Grub- 
benhorst, het programma Puntad ’64 
aan, een individuele puntenadmini- 
stratie voor het onderwijs. In het kort 
volgen hieronder zijn ervaringen. 

Het programma Puntad ’64 is bedoeld 
voor de individuele leerkracht, die hier¬ 
mee zijn eigen cijferadministratie bij 
kan houden. 

De vele menu’s in het proramma maken 
het mogelijk om op een eenvoudige 
wijze (de handleiding heb je eigenlijk 
niet nodig), alle mogelijke gegevens in 
te voeren. 

Leerling- en cijfermutaties zijn eenvou¬ 
dig aan te brengen en het programma 
biedt de mogelijkheid gemiddelden 
(met weegfactoren) snel te bepalen. 
Verder kunnen willekeurige cijfers om¬ 
gerekend worden naar C-niveau, een 
veel voorkomende handeling voor klas 
4 van de MAVO en op deze wijze erg 
tijdsbesparend. 

Naast het feit dat ik overzichtelijke pun- 
tenlijsten kan uitprinten, kan van elke 
leerling een prestatiediagram in beeld 
gebracht worden en van elk werk een 
prestatieanalyse. 

Het is jammer dat deze grafische weer¬ 
gaven niet binnen het programma kun¬ 
nen worden uitgeprint. Kontakt met de 
makers heeft ertoe geleid dat men be¬ 
zig is met een zgn. "updating”, waarin 
deze mogelijkheid wel verwerkt wordt. 
Daarnaast heb ik vernomen dat het 
programma ook omgeschreven wordt 
voor ”N.I.V.O.-apparatuur". 

Al met al een programma waar mijn 
collega’s en ik met volle tevredenheid 
mee werken. 

Prijs: ƒ 125,- 

üitgebracht door: Rejasoftv.o.f. Markt¬ 
straat 7, 5991 AS Baarlo. Tel: 04707- 
2255 
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Deze keer weer veel nieuws op het GEOS vlak. Deze snel populair wordende 
"operating shell” voor de Commodore 64 DOS heeft er de laatste tijd heel wat nieuwe 
applicaties en extra mogelijkheden bijgekregen. Met zaken zoals het Fontpack en 
Deskpack komen professionele toepassingen op de 64 steeds dichter bij. 


Geos nieuws 



E indelijk kregen we de GEOS ver¬ 
sie 1.2 in handen. Het werd tijd, 
Geos was (gekraakt) al bijna een 
eigen leven gaan leiden. Uit Ame¬ 
rika namen we ook nog wat ande¬ 
re Geos software mee, want Berkeley 
Softworks heeft een hele reeks Geos- 
utilities op stapel staan. 

De grote vraag voor huidige en toekomsti¬ 
ge GEOS gebruikers is natuurlijk: Wat is er 
precies veranderd? Hier volgt het resultaat 
van een klein onderzoek. 

Andere Geos 

De belangrijkste wijzigingen in het GEOS 
systeem liggen in het tekenprogramma 
Geopaint. Hiermee is het nu mogelijk ge¬ 
worden om tekeningen in kleur te manken. 
Daarbij wordt echter niet gebruik gemaakt 
van een multicolor HIRES scherm. De con¬ 
sequenties hiervan zijn dat het beeld wel 
een mooi oplossend vermogen behoudt, 
maar dat er niet met veel kleuren teglijk op 
een plaats gewerkt kan worden. We wezen 
er bovendien al op dat alleen de bezitters 
van een kleurenprinter voordeel van deze 
verandering zullen hebben. De color-mode 
kan echter ook uitgeschakeld worden. 
Andere veranderingen t.o.v. de versie 1.0 
zijn: 

► de preference manager (het instelmenu) 
is aanzienlijk kleiner geworden en kan 
daardoor sneller geladen worden. 



► de fouten in het printgedeelte zijn uit het 
programma gehaald. 

► de snellaadroutine voor de diskdrive is 
veranderd zodat het rode lampje niet 
meer hinderlijk knippert. 

Over het algemeen is de versie 1.2 dus 
aardig gedebugd, en we zijn daarom tevre¬ 
den over deze veranderingen. 

Extra fonts 

Nieuw is ook het Fontpack 1 . Dit bevat 20 
extra fonts die in Geopaint en Geowrite 
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gebruikt kunnen worden. Er zitten leuke, 
mooie en gekke lettertypes bij, die voor 
veel afwisseling zorgen. Er kan overigens 
maar met 8 verschillende fonts tegelijk 
gewerkt worden. BSW, het standaardfont 
is altijd aanwezig. De overige zeven zijn de 
eerste zeven in de directory. Met Fontpack 
kan men in ieder geval (mits de matrixprin¬ 
ter daar een acceptabele afdruk van 


maakt) een heel eind komen in de richting 
van Desktop Publishing. 

Deskpack I 

In de Verenigde Staten al te koop, maar 
hier nog niet verkrijgbaar is een pakket met 
extra Desktop applicaties. Dit pakket 
bevat: 

-de Graphics Grabber Met dit programma 
kan men graphics uit andere grafische 
programma’s zoals The Printshop halen. 
De GEOS gebruiker krijgt bijvoorbeeld zo 
de toegang tot verzamelingen kant en kla¬ 
re tekeningen (’clip art’) die als illustratie 
gebruikt kunnen worden in Geowrite of 
Geopaint. 

-de Icon Editor, waarmee men zelf iconen 
(symbooltjes) kan maken. 

-de Calendar (kalender), dit spreekt voor 
zichzelf. 
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-Black Jack (eenentwintigen tegen de 
computer, met muziek en graphics.) 

Van deze extra Utilities, die dus in de Geos 
omgeving functioneren en dus ”muis-ge- 
voelig” zijn, vinden we alleen de eerste 
twee echt interessant en nuttig. De rest 
neemt alleen maar plaats in beslag, spelle¬ 
tjes hebben de meeste C-64 gebruikers 
genoeg en vaak veel beter dan Black Jack. 

GEOS Literatuur 

Een software-systeem is net zo goed als 
de documentatie die erover bestaat, al¬ 
thans dat is de mening van Data Becker. 
Deze oorspronkelijk Duitse computeruit- 
geverij brengt daarom ”Das GroBe GEOS 
Buch ”uit (voorlopig alleen in het Duits). Dit 
boek bestaat globaal uit 3 delen : 

- GEOS fur Kreative, met allerlei ideeen 
voor projecten die men met GEOS zou 
kunnen uitvoeren. 

- GEOS Tips & Tricks 

- GEOS Intern is meer voor de machinetaal 
programmeurs. In dit deel wordt de struc¬ 
tuur van GEOS (in assembly) uit de doeken 
gedaan. 

Het boek telt 350 blz. en de prijs is onge¬ 
veer f 55,- 

Tips 

Dan nu nog enkele tips voor het werken 
met de tekstverwerker Geowrite. Deze 


werkt, zoals wij al schreven, bepaald lang¬ 
zaam. Dit kan echter goeddeels opgevan¬ 
gen worden door een "misleidende” in¬ 
greep. Hiervoor moet men de kantlijnstop¬ 
pen dichter bij elkaar zetten, zodat er op 2/ 
3 van de regel niet meer gescrollt hoeft te 
worden. 

Bovendien is het handig om de tekst eerst 


in BSW in te tikken en later met de muis of 
joystick de stijl of font te veranderen. Hier¬ 
voor moet er met de joystick en de vuurk- 
nop een bereik worden aangegeven en op 
dat stuk tekst (invers afgebeeld) kan men 
dan de verandering in font of style in het 
desbetreffende trekmenu inklikken. 

P.B. 
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• data-transfer > 400 Kbyte/sec. 
access-tijd < 20 micro-sec. 
capacity: 0,5 tot 20 meg-bytes 


• grotere capaciteit op specificatie 

• head-crashes zijn uitgesloten 

• non-volatile-memory 

• XT-AT compatible —. 
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